Mercurial > emacs
changeset 5095:976d7492e00e
(mail-fetch-field): Exclude trailing whitespace.
Delete duplicate (goto-char (point-min)).
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 21 Nov 1993 10:04:52 +0000 |
| parents | 8b59fb13665e |
| children | 76f878905c65 |
| files | lisp/mail/mail-utils.el |
| diffstat | 1 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mail-utils.el Sun Nov 21 09:04:48 1993 +0000 +++ b/lisp/mail/mail-utils.el Sun Nov 21 10:04:52 1993 +0000 @@ -161,16 +161,19 @@ (goto-char (point-min)) (let ((case-fold-search t) (name (concat "^" (regexp-quote field-name) "[ \t]*:[ \t]*"))) - (goto-char (point-min)) (if all (let ((value "")) (while (re-search-forward name nil t) (let ((opoint (point))) (while (progn (forward-line 1) (looking-at "[ \t]"))) + ;; Back up over newline, then trailing spaces or tabs + (forward-char -1) + (while (member (preceding-char) '(? ?\t)) + (forward-char -1)) (setq value (concat value (if (string= value "") "" ", ") - (buffer-substring opoint (1- (point))))))) + (buffer-substring opoint (point)))))) (and (not (string= value "")) value)) (if (re-search-forward name nil t) (progn @@ -178,7 +181,11 @@ (let ((opoint (point))) (while (progn (forward-line 1) (looking-at "[ \t]"))) - (buffer-substring opoint (1- (point)))))))))) + ;; Back up over newline, then trailing spaces or tabs + (forward-char -1) + (while (member (preceding-char) '(? ?\t)) + (forward-char -1)) + (buffer-substring opoint (point))))))))) ;; Parse a list of tokens separated by commas. ;; It runs from point to the end of the visible part of the buffer.