[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master cb75e80: Clean up gnus-uu saving code slightly
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master cb75e80: Clean up gnus-uu saving code slightly |
Date: |
Wed, 15 Apr 2015 13:28:33 +0000 |
branch: master
commit cb75e80b2091b7d61376d42822d3a1dd67325543
Author: Lars Magne Ingebrigtsen <address@hidden>
Commit: Lars Magne Ingebrigtsen <address@hidden>
Clean up gnus-uu saving code slightly
* gnus-uu.el (gnus-uu-save-article): Make the
save-restriction/widen calls make more sense.
---
lisp/gnus/gnus-uu.el | 11 ++---------
1 files changed, 2 insertions(+), 9 deletions(-)
diff --git a/lisp/gnus/gnus-uu.el b/lisp/gnus/gnus-uu.el
index f5d4495..94f01c6 100644
--- a/lisp/gnus/gnus-uu.el
+++ b/lisp/gnus/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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master cb75e80: Clean up gnus-uu saving code slightly,
Lars Ingebrigtsen <=