From 1e6603953ad85904ce6db6d6b5e319f0335d534b Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Tue, 15 Mar 2011 12:10:36 +0000 Subject: [PATCH] message.el (message-yank-original): Use cond instead of CL case. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/message.el | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 515a54cd491..a30f5fac4ad 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2011-03-15 Teodor Zlatanov + + * message.el (message-yank-original): Use cond instead of CL case. + 2011-03-15 Stefan Monnier * auth-source.el (auth-source-netrc-create): Use usual format for the diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 08c59b00bfc..f0ae6358431 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -3748,13 +3748,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? -- 2.39.2