From: Teodor Zlatanov <tzz@lifelogs.com>
Date: Tue, 15 Mar 2011 12:10:36 +0000 (+0000)
Subject: message.el (message-yank-original): Use cond instead of CL case.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~573
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1e6603953ad85904ce6db6d6b5e319f0335d534b;p=emacs.git

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

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  <tzz@lifelogs.com>
+
+	* message.el (message-yank-original): Use cond instead of CL case.
+
 2011-03-15  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* 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?