[Emacs-diffs] /srv/bzr/emacs/trunk r103660: message.el (message-yank-original): Use cond instead of CL case.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 103660
author: Teodor Zlatanov <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2011-03-15 12:10:36 +0000
message:
  message.el (message-yank-original): Use cond instead of CL case.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/message.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-03-15 02:44:17 +0000
+++ b/lisp/gnus/ChangeLog       2011-03-15 12:10:36 +0000
@@ -1,3 +1,7 @@
+2011-03-15  Teodor Zlatanov  <address@hidden>
+
+       * message.el (message-yank-original): Use cond instead of CL case.
+
 2011-03-15  Stefan Monnier  <address@hidden>
 
        * auth-source.el (auth-source-netrc-create): Use usual format for the

=== modified file 'lisp/gnus/message.el'
--- a/lisp/gnus/message.el      2011-03-05 13:01:56 +0000
+++ b/lisp/gnus/message.el      2011-03-15 12:10:36 +0000
@@ -3748,13 +3748,13 @@
                (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?