[gnus git] branch master updated: n0-13-103-gab3426f =1= * message.el (message-yank-original): Use cond instead of CL case.
Ted Zlatanov <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via ab3426faf8625b0b47c4d39a11eb38901a7efc4f (commit)
from 096230755b2074c3a2749ae13a4c8543a7f05fb5 (commit)
- Log -----------------------------------------------------------------
commit ab3426faf8625b0b47c4d39a11eb38901a7efc4f
Author: Ted Zlatanov <[email protected]>
Date: Tue Mar 15 04:33:42 2011 -0500
* message.el (message-yank-original): Use cond instead of CL case.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d993730..fa4d6c8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,10 @@
+2011-03-15 Teodor Zlatanov <[email protected]>
+
+ * message.el (message-yank-original): Use cond instead of CL case.
+
2011-03-14 Katsumi Yamaoka <[email protected]>
- lpath.el: Fbind read-char-choice for XEmacs.
+ * lpath.el: Fbind read-char-choice for XEmacs.
2011-03-13 Teodor Zlatanov <[email protected]>
diff --git a/lisp/message.el b/lisp/message.el
index 4fa55ef..c939303 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3792,13 +3792,13 @@ prefix, and don't delete any headers."
(goto-char (mark t))
(insert-before-markers ?\n)
(goto-char pt))))
- (case message-cite-reply-position
- ('above
+ (cond
+ ((eq 'above message-cite-reply-position)
(message-goto-body)
(insert body-text)
(insert (if (bolp) "\n" "\n\n"))
(message-goto-body))
- ('below
+ ((eq 'below message-cite-reply-position)
(message-goto-signature)))
;; Add a `message-setup-very-last-hook' here?
;; Add `gnus-article-highlight-citation' here?
-----------------------------------------------------------------------
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 | 6 +++++-
lisp/message.el | 6 +++---
2 files changed, 8 insertions(+), 4 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