[gnus git] branch master updated: n0-13-22-gf82c558
Lars Ingebrigtsen <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via f82c558fbf435eaaff8f5c0fcb31637af673fb4b (commit)
from 9f46f54dbfbce043673f5ce8d176d9941700f8f9 (commit)
- Log -----------------------------------------------------------------
commit f82c558fbf435eaaff8f5c0fcb31637af673fb4b
Author: Lars Ingebrigtsen <[email protected]>
Date: Wed Feb 23 00:04:19 2011 -0800
(gnus-setup-message): Define missing variable from last checkin.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c91ae14..d63e3fd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -31,6 +31,7 @@
* gnus-msg.el (gnus-inews-add-send-actions): Restore the winconf name
after exit.
+ (gnus-setup-message): Define missing variable from last checkin.
* gnus-sum.el (gnus-summary-show-article): When called with t as the
value, show the raw article.
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 29ac431..093eec3 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -383,6 +383,7 @@ Thank you for your help in stamping out bugs.
(defvar gnus-article-reply nil)
(defmacro gnus-setup-message (config &rest forms)
(let ((winconf (make-symbol "gnus-setup-message-winconf"))
+ (winconf-name (make-symbol "gnus-setup-message-winconf-name"))
(buffer (make-symbol "gnus-setup-message-buffer"))
(article (make-symbol "gnus-setup-message-article"))
(yanked (make-symbol "gnus-setup-yanked-articles"))
@@ -433,7 +434,7 @@ Thank you for your help in stamping out bugs.
(progn
,@forms)
(gnus-inews-add-send-actions ,winconf ,buffer ,article ,config
- ,yanked ,winconf-name)
+ ,yanked ',winconf-name)
(setq gnus-message-buffer (current-buffer))
(set (make-local-variable 'gnus-message-group-art)
(cons ,group ,article))
@@ -541,7 +542,7 @@ Gcc: header for archiving purposes."
(gnus-post-method arg ,gnus-newsgroup-name)))
(message-add-action
`(progn
- (setq gnus-current-window-configuration ,winconf-name)
+ (setq gnus-current-window-configuration ',winconf-name)
(when (gnus-buffer-exists-p ,buffer)
(set-window-configuration ,winconf)))
'exit 'postpone 'kill)
-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.
Summary of changes:
lisp/ChangeLog | 1 +
lisp/gnus-msg.el | 5 +++--
2 files changed, 4 insertions(+), 2 deletions(-)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".
The branch, master has been updated
hooks/post-receive
--
Gnus Project