Mercurial > emacs
changeset 31568:d0dfc12963ef
(mail-mode-fill-paragraph): Do not get the
filed name if it's not there.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 12 Sep 2000 13:30:30 +0000 |
| parents | 1e0273003329 |
| children | 8b6e9e1a553b |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Tue Sep 12 13:16:58 2000 +0000 +++ b/lisp/mail/sendmail.el Tue Sep 12 13:30:30 2000 +0000 @@ -542,10 +542,10 @@ ;; Do something special only if within the headers. (if (< (point) (mail-header-end)) (let (beg end fieldname) - (re-search-backward "^[-a-zA-Z]+:" nil 'yes) - (setq beg (point)) + (when (prog1 (re-search-backward "^[-a-zA-Z]+:" nil 'yes) + (setq beg (point))) (setq fieldname - (downcase (buffer-substring beg (1- (match-end 0))))) + (downcase (buffer-substring beg (1- (match-end 0)))))) (forward-line 1) ;; Find continuation lines and get rid of their continuation markers. (while (looking-at "[ \t]")