* message.el (message-yank-original): Use cond instead of CL case.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d993730..fa4d6c8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,10 @@
+2011-03-15  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * message.el (message-yank-original): Use cond instead of CL case.
+
 2011-03-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
-       lpath.el: Fbind read-char-choice for XEmacs.
+       * lpath.el: Fbind read-char-choice for XEmacs.
 
 2011-03-13  Teodor Zlatanov  <tzz@lifelogs.com>
 

diff --git a/lisp/message.el b/lisp/message.el
index 4fa55ef..c939303 100644 (file)
--- 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?