Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3b7bf1d4
Commit
3b7bf1d4
authored
Aug 22, 2012
by
Katsumi Yamaoka
Browse files
[Gnus] Enable posting-style group parameter to hold non-ASCII string values
parent
bfef4149
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
32 additions
and
8 deletions
+32
-8
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+9
-0
lisp/gnus/gnus-cus.el
lisp/gnus/gnus-cus.el
+16
-8
lisp/gnus/gnus-msg.el
lisp/gnus/gnus-msg.el
+7
-0
No files found.
lisp/gnus/ChangeLog
View file @
3b7bf1d4
2012-08-22 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-cus.el (gnus-group-customize): Decode values posting-style holds.
(gnus-group-customize-done): Encode values posting-style holds.
* gnus-msg.el (gnus-summary-resend-message)
(gnus-configure-posting-styles): Decode values posting-style group
parameter holds.
2012-08-21 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-msg.el (gnus-summary-resend-message): Honor posting-style for
...
...
lisp/gnus/gnus-cus.el
View file @
3b7bf1d4
...
...
@@ -417,6 +417,11 @@ category."))
(
delq
elem
tmp
))
(
setq
tmp
(
cdr
tmp
))))
;; Decode values posting-style holds.
(
dolist
(
style
(
cdr
(
assq
'posting-style
values
)))
(
when
(
stringp
(
cadr
style
))
(
setcdr
style
(
list
(
mm-decode-coding-string
(
cadr
style
)
'utf-8
)))))
(
setq
gnus-custom-params
(
apply
'widget-create
'group
:value
values
...
...
@@ -487,14 +492,17 @@ form, but who cares?"
(defun gnus-group-customize-done (&rest ignore)
"
Apply
changes
and
bury
the
buffer.
"
(interactive)
(if gnus-custom-topic
(gnus-topic-set-parameters gnus-custom-topic
(widget-value gnus-custom-params))
(gnus-group-edit-group-done 'params gnus-custom-group
(widget-value gnus-custom-params))
(gnus-group-edit-group-done 'method gnus-custom-group
(widget-value gnus-custom-method)))
(bury-buffer))
(let ((params (widget-value gnus-custom-params)))
;; Encode values posting-style holds.
(dolist (style (cdr (assq 'posting-style params)))
(when (stringp (cadr style))
(setcdr style (list (mm-encode-coding-string (cadr style) 'utf-8)))))
(if gnus-custom-topic
(gnus-topic-set-parameters gnus-custom-topic params)
(gnus-group-edit-group-done 'params gnus-custom-group params)
(gnus-group-edit-group-done 'method gnus-custom-group
(widget-value gnus-custom-method)))
(bury-buffer)))
;;; Score Customization:
...
...
lisp/gnus/gnus-msg.el
View file @
3b7bf1d4
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment