mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases 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
Show Stats 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 ()