procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/gnus/gnus-srvr.el (gnus-tmp-how, gnus-tmp-name, gnus-tmp-where)

Browse source 
(gnus-tmp-status, gnus-tmp-agent, gnus-tmp-cloud)
(gnus-tmp-news-server, gnus-tmp-news-method, gnus-tmp-user-defined):
Silence compiler warnings.
(gnus-server-insert-server-line): Don't use dyn-bind var as argument.
This commit is contained in:
Stefan Monnier 2014-04-06 14:25:34 -04:00
parent 7b656e4a55
commit 9b69fd6f8b
2 changed files with 21 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/ChangeLog
View file

@ -1,3 +1,11 @@
2014-04-06 Stefan Monnier <monnier@iro.umontreal.ca>
* gnus-srvr.el (gnus-tmp-how, gnus-tmp-name, gnus-tmp-where)
(gnus-tmp-status, gnus-tmp-agent, gnus-tmp-cloud)
(gnus-tmp-news-server, gnus-tmp-news-method, gnus-tmp-user-defined):
Silence compiler warnings.
(gnus-server-insert-server-line): Don't use dyn-bind var as argument.
2014-03-24 Katsumi Yamaoka <yamaoka@jpl.org>
* mml.el: Require url when compiling.

15
lisp/gnus/gnus-srvr.el
View file

@ -78,6 +78,16 @@ If nil, a faster, but more primitive, buffer is used instead."
;;; Internal variables.
(defvar gnus-tmp-how)
(defvar gnus-tmp-name)
(defvar gnus-tmp-where)
(defvar gnus-tmp-status)
(defvar gnus-tmp-agent)
(defvar gnus-tmp-cloud)
(defvar gnus-tmp-news-server)
(defvar gnus-tmp-news-method)
(defvar gnus-tmp-user-defined)
(defvar gnus-inserted-opened-servers nil)
(defvar gnus-server-line-format-alist
@ -276,8 +286,9 @@ The following commands are available:
'(gnus-server-font-lock-keywords t)))
(gnus-run-mode-hooks 'gnus-server-mode-hook))
(defun gnus-server-insert-server-line (gnus-tmp-name method)
(let* ((gnus-tmp-how (car method))
(defun gnus-server-insert-server-line (name method)
(let* ((gnus-tmp-name name)
(gnus-tmp-how (car method))
(gnus-tmp-where (nth 1 method))
(elem (assoc method gnus-opened-servers))
(gnus-tmp-status