mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(news-mail-reply): Restore the saved narrowing before calling `mail'.

Browse source
This commit is contained in:
Richard M. Stallman 1994-12-17 00:50:52 +00:00
parent 9821535a44
commit 56eb270e3b
1 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lisp/mail/rnewspost.el
View file

@ -270,18 +270,18 @@ original message into it."
(setq from (mail-fetch-field "from")
subject (mail-fetch-field "subject")
reply-to (mail-fetch-field "reply-to")
date (mail-fetch-field "date"))
(setq to from)
(pop-to-buffer "*mail*")
(mail nil
(if reply-to reply-to to)
subject
(let ((stop-pos (string-match " *at \\| *@ \\| *(\\| *<" from)))
(concat (if stop-pos (substring from 0 stop-pos) from)
"'s message of "
date))
nil
buffer))))
date (mail-fetch-field "date")))
(setq to from)
(pop-to-buffer "*mail*")
(mail nil
(if reply-to reply-to to)
subject
(let ((stop-pos (string-match " *at \\| *@ \\| *(\\| *<" from)))
(concat (if stop-pos (substring from 0 stop-pos) from)
"'s message of "
date))
nil
buffer)))
;@@ the guts of news-reply and news-post-news should be combined. -tower
(defun news-reply ()