From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Dec 1994 00:50:52 +0000 (+0000)
Subject: (news-mail-reply): Restore the saved narrowing before calling `mail'.
X-Git-Tag: emacs-19.34~5672
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=56eb270e3b1d9ee8ef6c87748372229b835b37a9;p=emacs.git

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

diff --git a/lisp/mail/rnewspost.el b/lisp/mail/rnewspost.el
index 2824a0fbb0f..157892489b5 100644
--- a/lisp/mail/rnewspost.el
+++ b/lisp/mail/rnewspost.el
@@ -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 ()