mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(gnus-configure-frame, gnus-all-windows-visible-p):

Browse Source 
Fix last change in case the element is not even a symbol.
This commit is contained in:
Stefan Monnier 2008-04-03 21:30:51 +00:00
parent 1ade5d241f
commit 5faa2ec0c6
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/gnus/ChangeLog
View File

@ -1,3 +1,8 @@
2008-04-03 Stefan Monnier <monnier@iro.umontreal.ca>
* gnus-win.el (gnus-configure-frame, gnus-all-windows-visible-p):
Fix last change in case the element is not even a symbol.
2008-03-31 Glenn Morris <rgm@gnu.org>
* message.el (mml2015-use): Declare for compiler.
@ -81,8 +86,8 @@
2008-03-19 Reiner Steib <Reiner.Steib@gmx.de>
* message.el (message-alter-recipients-discard-bogus-full-name): New
function.
* message.el (message-alter-recipients-discard-bogus-full-name):
New function.
(message-alter-recipients-function): New variable.
(message-get-reply-headers): Use it.
(message-replace-header): New helper function.

6
lisp/gnus/gnus-win.el
View File

@ -317,7 +317,7 @@ See the Gnus manual for an explanation of the syntax used.")
;; The SPLIT might be something that is to be evaled to
;; return a new SPLIT.
(while (and (not (assq (car split) gnus-window-to-buffer))
(fboundp (car split)))
(symbolp (car split)) (fboundp (car split)))
(setq split (eval split)))
(let* ((type (car split))
(subs (cddr split))
@ -380,7 +380,7 @@ See the Gnus manual for an explanation of the syntax used.")
(while subs
(setq sub (append (pop subs) nil))
(while (and (not (assq (car sub) gnus-window-to-buffer))
(fboundp (car sub)))
(symbolp (car sub)) (fboundp (car sub)))
(setq sub (eval sub)))
(when sub
(push sub comp-subs)
@ -520,7 +520,7 @@ should have point."
;; The SPLIT might be something that is to be evaled to
;; return a new SPLIT.
(while (and (not (assq (car split) gnus-window-to-buffer))
(fboundp (car split)))
(symbolp (car split)) (fboundp (car split)))
(setq split (eval split)))
(setq type (elt split 0))