diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2015-04-15 15:28:20 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2015-04-15 15:28:20 +0200 |
| commit | cb75e80b2091b7d61376d42822d3a1dd67325543 (patch) | |
| tree | bb82b5afb114fd0ad198b2a49dbae6902acbedac /lisp/gnus/gnus-uu.el | |
| parent | a122a0276bddbda8ca84f9b94250a5a5f4e0582a (diff) | |
| download | emacs-cb75e80b2091b7d61376d42822d3a1dd67325543.tar.gz | |
Clean up gnus-uu saving code slightly
* gnus-uu.el (gnus-uu-save-article): Make the
save-restriction/widen calls make more sense.
Diffstat (limited to 'lisp/gnus/gnus-uu.el')
| -rw-r--r-- | 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 f5d44959391..94f01c6158d 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 |