[gnus git] branch master updated: m0-11-221-gab346c8 =1= Clean up gnus-uu saving code slightly

       via  ab346c80b97cf11f269d79fd7a66b05090721d64 (commit)
      from  a86bda634bb40d4f0a2f84ed7f90c2186d7f4b47 (commit)


- Log -----------------------------------------------------------------
commit ab346c80b97cf11f269d79fd7a66b05090721d64
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Wed Apr 15 22:45:02 2015 +0000

    Clean up gnus-uu saving code slightly
    
    * gnus-uu.el (gnus-uu-save-article): Make the
    save-restriction/widen calls make more sense.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e463eb1..d582dca 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-04-15  Lars Magne Ingebrigtsen  <[email protected]>
+
+	* gnus-uu.el (gnus-uu-save-article):
+	Make the save-restriction/widen calls make more sense.
+
 2015-04-14  Katsumi Yamaoka  <[email protected]>
 
 	* gnus-art.el (gnus-use-idna):
diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index f5d4495..94f01c6 100644
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -873,14 +873,8 @@ When called interactively, prompt for REGEXP."
 	  (setq state (list 'middle))))
       (with-current-buffer "*gnus-uu-body*"
 	(goto-char (setq beg (point-max)))
-	(save-excursion
+	(with-current-buffer buffer
 	  (save-restriction
-            ;; FIXME: We save excursion and restriction in "*gnus-uu-body*",
-            ;; only to immediately move to another buffer?  And we narrow in
-            ;; that buffer without save-restriction?  And we finish the
-            ;; save-restriction with a call to `widen'?  How can that
-            ;; make sense?
-	    (set-buffer buffer)
 	    (let ((inhibit-read-only t))
 	      (set-text-properties (point-min) (point-max) nil)
 	      ;; These two are necessary for XEmacs 19.12 fascism.
@@ -915,8 +909,7 @@ When called interactively, prompt for REGEXP."
 				 (match-beginning 0)
 				 (or (and (re-search-forward "^[^ \t]" nil t)
 					  (1- (point)))
-				     (progn (forward-line 1) (point)))))))))
-	    (widen)))
+				     (progn (forward-line 1) (point)))))))))))
 	(if (and message-forward-as-mime gnus-uu-digest-buffer)
 	  (if message-forward-show-mml
 	      (progn

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    5 +++++
 lisp/gnus-uu.el |   11 ++---------
 2 files changed, 7 insertions(+), 9 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project