diff options
author | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-08-22 10:37:55 +0000 |
---|---|---|
committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-08-22 10:37:55 +0000 |
commit | 3b7bf1d45b5ad46222cd64071af110c5ce3bb007 (patch) | |
tree | 6d87257666fbadd4aad14a573068e2eac8fd512c /lisp/gnus/gnus-msg.el | |
parent | bfef4149cf6451bdd888dace455214c51914ec42 (diff) | |
download | emacs-3b7bf1d45b5ad46222cd64071af110c5ce3bb007.tar.gz |
[Gnus] Enable posting-style group parameter to hold non-ASCII string values
Diffstat (limited to 'lisp/gnus/gnus-msg.el')
-rw-r--r-- | lisp/gnus/gnus-msg.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index 07748bebb81..c2f79e70d1e 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -1376,6 +1376,9 @@ For the \"inline\" alternatives, also see the variable (user-full-name user-full-name) (user-mail-address user-mail-address) tem) + (dolist (style styles) + (when (stringp (cadr style)) + (setcdr style (list (mm-decode-coding-string (cadr style) 'utf-8))))) (dolist (style (if styles (append gnus-posting-styles (list (cons ".*" styles))) gnus-posting-styles)) @@ -1807,6 +1810,10 @@ this is a reply." (when gnus-newsgroup-name (let ((tmp-style (gnus-group-find-parameter group 'posting-style t))) (when tmp-style + (dolist (style tmp-style) + (when (stringp (cadr style)) + (setcdr style (list (mm-decode-coding-string (cadr style) + 'utf-8))))) (setq styles (append styles (list (cons ".*" tmp-style))))))) ;; Go through all styles and look for matches. (dolist (style styles) |