procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mail-mode-fill-paragraph): Do not get the

Browse source 
filed name if it's not there.
This commit is contained in:
Gerd Moellmann 2000-09-12 13:30:30 +00:00
parent 3517761708
commit 8fcbbf7d42
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/mail/sendmail.el
View file

@ -542,10 +542,10 @@ If within the headers, this makes the new lines into continuation lines."
;; 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]")