mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Teodor Zlatanov 2011-03-15 12:10:36 +00:00 • committed by Katsumi Yamaoka
parent c6eee9aa8d
commit 1e6603953a
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/message.el
View file

@ -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?