mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

Silence byte-compiler

Browse Source 
* lisp/gnus/nnrss.el (nnrss-retrieve-headers, nnrss-request-list-newsgroups)
(nnrss-retrieve-groups):
* lisp/gnus/pop3.el (pop3-open-server, pop3-read-response, pop3-list)
(pop3-retr, pop3-quit): Use with-current-buffer.
This commit is contained in:
Stefan Monnier 2010-09-17 16:22:06 +02:00
parent 31c381e884
commit 63556fc6fa
3 changed files with 18 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/gnus/ChangeLog
View File

@ -1,3 +1,10 @@
2010-09-17 Stefan Monnier <monnier@iro.umontreal.ca>
* nnrss.el (nnrss-retrieve-headers, nnrss-request-list-newsgroups)
(nnrss-retrieve-groups):
* pop3.el (pop3-open-server, pop3-read-response, pop3-list, pop3-retr)
(pop3-quit): Use with-current-buffer.
2010-09-17 Katsumi Yamaoka <yamaoka@jpl.org>
* pop3.el (pop3-wait-for-messages): Use pop3-accept-process-output

9
lisp/gnus/nnrss.el
View File

@ -134,8 +134,7 @@ used to render text. If it is nil, text will simply be folded.")
(setq group (nnrss-decode-group-name group))
(nnrss-possibly-change-group group server)
(let (e)
(save-excursion
(set-buffer nntp-server-buffer)
(with-current-buffer nntp-server-buffer
(erase-buffer)
(dolist (article articles)
(if (setq e (assq article nnrss-group-data))
@ -384,8 +383,7 @@ used to render text. If it is nil, text will simply be folded.")
(deffoo nnrss-request-list-newsgroups (&optional server)
(nnrss-possibly-change-group nil server)
(save-excursion
(set-buffer nntp-server-buffer)
(with-current-buffer nntp-server-buffer
(erase-buffer)
(dolist (elem nnrss-group-alist)
(if (third elem)
@ -396,8 +394,7 @@ used to render text. If it is nil, text will simply be folded.")
(nnrss-possibly-change-group nil server)
(dolist (group groups)
(nnrss-check-group group server))
(save-excursion
(set-buffer nntp-server-buffer)
(with-current-buffer nntp-server-buffer
(erase-buffer)
(dolist (group groups)
(let ((elem (assoc group nnrss-server-data)))

21
lisp/gnus/pop3.el
View File

@ -279,9 +279,9 @@ Returns the process associated with the connection."
(let ((coding-system-for-read 'binary)
(coding-system-for-write 'binary)
process)
(save-excursion
(set-buffer (get-buffer-create (concat " trace of POP session to "
mailhost)))
(with-current-buffer
(get-buffer-create (concat " trace of POP session to "
mailhost))
(erase-buffer)
(setq pop3-read-point (point-min))
(setq process
@ -353,8 +353,7 @@ Returns the process associated with the connection."
Return the response string if optional second argument is non-nil."
(let ((case-fold-search nil)
match-end)
(save-excursion
(set-buffer (process-buffer process))
(with-current-buffer (process-buffer process)
(goto-char pop3-read-point)
(while (and (memq (process-status process) '(open run))
(not (search-forward "\r\n" nil t)))
@ -511,8 +510,7 @@ Otherwise, return the size of the message-id MSG"
(if msg
(string-to-number (nth 2 (split-string response " ")))
(let ((start pop3-read-point) end)
(save-excursion
(set-buffer (process-buffer process))
(with-current-buffer (process-buffer process)
(while (not (re-search-forward "^\\.\r\n" nil t))
(pop3-accept-process-output process)
(goto-char start))
@ -530,8 +528,7 @@ Otherwise, return the size of the message-id MSG"
(pop3-send-command process (format "RETR %s" msg))
(pop3-read-response process)
(let ((start pop3-read-point) end)
(save-excursion
(set-buffer (process-buffer process))
(with-current-buffer (process-buffer process)
(while (not (re-search-forward "^\\.\r\n" nil t))
(pop3-accept-process-output process)
(goto-char start))
@ -547,8 +544,7 @@ Otherwise, return the size of the message-id MSG"
(setq end (point-marker))
(pop3-clean-region start end)
(pop3-munge-message-separator start end)
(save-excursion
(set-buffer crashbuf)
(with-current-buffer crashbuf
(erase-buffer))
(copy-to-buffer crashbuf start end)
(delete-region start end)
@ -585,8 +581,7 @@ and close the connection."
(pop3-send-command process "QUIT")
(pop3-read-response process t)
(if process
(save-excursion
(set-buffer (process-buffer process))
(with-current-buffer (process-buffer process)
(goto-char (point-max))
(delete-process process))))