mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(rmail-reformat-message): Call `rmail-clear-headers'

Browse Source 
also if `rmail-displayed-headers' is set.
(rmail-clear-headers): Handle `rmail-displayed-headers' correctly.

(rmail-insert-inbox-text): When reading old
.newmail-<user> file, report it specifically.

(rmail-displayed-headers): New variable.
(rmail-clear-headers): Handle rmail-displayed-headers

(rmail-display-labels): Use `format' to convert
message numbers to strings.

(rmail-resend): If mailabbrev loaded, use that to expand abbrevs.
This commit is contained in:
Richard M. Stallman 1995-04-14 22:16:50 +00:00
parent 167d976be4
commit 8095bf233d
1 changed files with 55 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
lisp/mail/rmail.el
View File

@ -70,6 +70,12 @@ It is useful to set this variable in the site customization file.")
(defvar rmail-ignored-headers "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:\\|^x400-received:\\|^x400-mts-identifier:\\|^x400-content-type:\\|^\\(resent-\\|\\)message-id:\\|^summary-line:"
"*Regexp to match Header fields that Rmail should normally hide.")
;;;###autoload
(defvar rmail-displayed-headers nil
"*Regexp to match Header fields that Rmail should display.
If nil, display all header fields except those matched by
`rmail-ignored-headers'.")
;;;###autoload
(defvar rmail-retry-ignored-headers nil "\
*Headers that should be stripped when retrying a failed message.")
@ -948,13 +954,14 @@ It returns t if it got any new messages."
(if (file-directory-p file)
(setq file (expand-file-name (user-login-name)
file)))))
(if popmail
(message "Getting mail from post office ...")
(if (or (and (file-exists-p tofile)
(/= 0 (nth 7 (file-attributes tofile))))
(and (file-exists-p file)
(/= 0 (nth 7 (file-attributes file)))))
(message "Getting mail from %s..." file)))
(cond (popmail
(message "Getting mail from post office ..."))
((and (file-exists-p tofile)
(/= 0 (nth 7 (file-attributes tofile))))
(message "Getting mail from %s..." tofile))
((and (file-exists-p file)
(/= 0 (nth 7 (file-attributes file))))
(message "Getting mail from %s..." file)))
;; Set TOFILE if have not already done so, and
;; rename or copy the file FILE to TOFILE if and as appropriate.
(cond ((not renamep)
@ -1220,22 +1227,42 @@ It returns t if it got any new messages."
(narrow-to-region (point) (- (buffer-size) delta)))
(goto-char (point-min))
(if rmail-message-filter (funcall rmail-message-filter))
(if rmail-ignored-headers (rmail-clear-headers))))
(if (or rmail-displayed-headers rmail-ignored-headers)
(rmail-clear-headers))))
(defun rmail-clear-headers (&optional ignored-headers)
(or ignored-headers (setq ignored-headers rmail-ignored-headers))
"Delete all header fields that Rmail should not show.
If the optional argument IGNORED-HEADERS is non-nil,
delete all header fields whose names match that regexp.
Otherwise, if `rmail-displayed-headers' is non-nil,
delete all header fields *except* those whose names match that regexp.
Otherwise, delete all header fields whose names match `rmail-ignored-headers'."
(if (search-forward "\n\n" nil t)
(save-restriction
(narrow-to-region (point-min) (point))
(let ((buffer-read-only nil))
(while (let ((case-fold-search t))
(goto-char (point-min))
(re-search-forward ignored-headers nil t))
(beginning-of-line)
(delete-region (point)
(progn (re-search-forward "\n[^ \t]")
(forward-char -1)
(point))))))))
(if (and rmail-displayed-headers (null ignored-headers))
(save-restriction
(narrow-to-region (point-min) (point))
(let ((buffer-read-only nil) lim)
(goto-char (point-min))
(while (save-excursion
(re-search-forward "\n[^ \t]")
(and (not (eobp))
(setq lim (1- (point)))))
(if (save-excursion
(re-search-forward rmail-displayed-headers lim t))
(goto-char lim)
(delete-region (point) lim))))
(goto-char (point-min)))
(or ignored-headers (setq ignored-headers rmail-ignored-headers))
(save-restriction
(narrow-to-region (point-min) (point))
(let ((buffer-read-only nil))
(while (let ((case-fold-search t))
(goto-char (point-min))
(re-search-forward ignored-headers nil t))
(beginning-of-line)
(delete-region (point)
(progn (re-search-forward "\n[^ \t]")
(1- (point))))))))))
(defun rmail-toggle-header ()
"Show original message header if pruned header currently shown, or vice versa."
@ -1312,8 +1339,8 @@ It returns t if it got any new messages."
(setq blurb (concat (substring blurb 0 (match-beginning 0)) ","
(substring blurb (match-end 0)))))
(setq mode-line-process
(concat " " rmail-current-message "/" rmail-total-messages
blurb))))
(format " %d/%d%s"
rmail-current-message rmail-total-messages blurb))))
;; Turn an attribute of a message on or off according to STATE.
;; ATTR is the name of the attribute, as a string.
@ -2251,8 +2278,13 @@ typically for purposes of moderating a list."
address
(mapconcat 'identity address ",\n\t"))
"\n")
;; Expand abbrevs in the recipients.
(save-excursion
(expand-mail-aliases before (point))))
(if (featurep 'mailabbrev)
(progn
(mail-abbrevs-setup)
(expand-region-abbrevs before (point) t))
(expand-mail-aliases before (point)))))
;;>> Set up comment, if any.
(if (and (sequencep comment) (not (zerop (length comment))))
(let ((before (point))