Allow setting `message-cite-style' via customize

* message.el (message-yank-original): When using customize to set the
value of `message-cite-style', the variable it set to a symbol that's
the name of the variable, which must then be dereferenced (bug#12616).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc52eee..159d598 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-12-25  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * message.el (message-yank-original): When using customize to set the
+       value of `message-cite-style', the variable it set to a symbol that's
+       the name of the variable, which must then be dereferenced (bug#12616).
+
 2012-09-13  Wolfgang Jenkner  <wjenkner@inode.at>
 
        * lisp/gnus-spec.el (gnus-face-face-function): Initialize the value of

diff --git a/lisp/message.el b/lisp/message.el
index c815485..18e5e6d 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3858,7 +3858,9 @@ prefix, and don't delete any headers."
   (interactive "P")
   ;; eval the let forms contained in message-cite-style
   (eval
-   `(let ,message-cite-style
+   `(let ,(if (symbolp message-cite-style)
+             (symbol-value message-cite-style)
+           message-cite-style)
       (message--yank-original-internal ',arg))))
 
 (defun message-yank-buffer (buffer)