diff options
| author | Gerd Moellmann | 2000-09-12 13:30:30 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-09-12 13:30:30 +0000 |
| commit | 8fcbbf7d4253e5f2303d9b338a45af4078f10015 (patch) | |
| tree | 5a6e11d37173aee406cdce204e85c1b103022dbd | |
| parent | 3517761708753f1f3f895aa726ce0512183fbca2 (diff) | |
| download | emacs-8fcbbf7d4253e5f2303d9b338a45af4078f10015.tar.gz emacs-8fcbbf7d4253e5f2303d9b338a45af4078f10015.zip | |
(mail-mode-fill-paragraph): Do not get the
filed name if it's not there.
| -rw-r--r-- | lisp/mail/sendmail.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 9a6e2afda8f..a04b93bd7ac 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -542,10 +542,10 @@ If within the headers, this makes the new lines into continuation lines." | |||
| 542 | ;; Do something special only if within the headers. | 542 | ;; Do something special only if within the headers. |
| 543 | (if (< (point) (mail-header-end)) | 543 | (if (< (point) (mail-header-end)) |
| 544 | (let (beg end fieldname) | 544 | (let (beg end fieldname) |
| 545 | (re-search-backward "^[-a-zA-Z]+:" nil 'yes) | 545 | (when (prog1 (re-search-backward "^[-a-zA-Z]+:" nil 'yes) |
| 546 | (setq beg (point)) | 546 | (setq beg (point))) |
| 547 | (setq fieldname | 547 | (setq fieldname |
| 548 | (downcase (buffer-substring beg (1- (match-end 0))))) | 548 | (downcase (buffer-substring beg (1- (match-end 0)))))) |
| 549 | (forward-line 1) | 549 | (forward-line 1) |
| 550 | ;; Find continuation lines and get rid of their continuation markers. | 550 | ;; Find continuation lines and get rid of their continuation markers. |
| 551 | (while (looking-at "[ \t]") | 551 | (while (looking-at "[ \t]") |