mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-make-basic-summary-line): Get all the lines of the From field.

Browse source
This commit is contained in:
Richard M. Stallman 1994-05-09 22:18:59 +00:00
parent 080ac1ac22
commit 4f5d303b20
1 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/mail/rmailsum.el
View file

@ -308,10 +308,17 @@ nil for FUNCTION means all messages."
(let* ((from (mail-strip-quoted-names
(buffer-substring
(1- (point))
(progn (end-of-line)
(skip-chars-backward " \t")
(point)))))
len mch lo)
;; Get all the lines of the From field
;; so that we get a whole comment if there is one,
;; so that mail-strip-quoted-names can discard it.
(let ((opoint (point)))
(while (progn (forward-line 1)
(looking-at "[ \t]")))
;; Back up over newline, then trailing spaces or tabs
(forward-char -1)
(skip-chars-backward " \t")
(point)))))
len mch lo)
(if (string-match (concat "^"
(regexp-quote (user-login-name))
"\\($\\|@\\)")