diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-09 22:18:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-09 22:18:59 +0000 |
| commit | 4f5d303b2006da209fa295e2f90ea5105e3e2f34 (patch) | |
| tree | 1eee5696b7a5541f2f637b8eafed9c88d8244cf2 | |
| parent | 080ac1ac22a68da47133a97374b35f81321e051f (diff) | |
| download | emacs-4f5d303b2006da209fa295e2f90ea5105e3e2f34.tar.gz emacs-4f5d303b2006da209fa295e2f90ea5105e3e2f34.tar.bz2 emacs-4f5d303b2006da209fa295e2f90ea5105e3e2f34.zip | |
(rmail-make-basic-summary-line): Get all the lines of the From field.
| -rw-r--r-- | lisp/mail/rmailsum.el | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 34ee023c9c7..a3f9b4e2e81 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -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)) "\\($\\|@\\)") |