Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 12:27:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/gnus/nnmairix.el (nnmairix-replace-illegal-chars): Drop Emacs 20 code.

Browse source
This commit is contained in:
Glenn Morris 2010-10-02 19:12:55 -07:00
parent 3615c80cc0
commit 0f810fbf3e
2 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/gnus/ChangeLog
View file

@ -1,5 +1,7 @@
2010-10-03 Glenn Morris <rgm@gnu.org>
* nnmairix.el (nnmairix-replace-illegal-chars): Drop Emacs 20 code.
* smime.el (smime-cert-by-ldap-1): Drop Emacs 21 code.
* gnus-art.el (gnus-next-page-map): Drop Emacs 20 compat cruft.

9
lisp/gnus/nnmairix.el
View file

@ -1572,14 +1572,11 @@ See %s for details" proc nnmairix-mairix-output-buffer)))
(defun nnmairix-replace-illegal-chars (header)
"Replace illegal characters in HEADER for mairix query."
(when header
(if (> emacs-major-version 20)
(while (string-match "[^-.@/,& [:alnum:]]" header)
(setq header (replace-match "" t t header)))
(while (string-match "[[]{}:<>]" header)
(setq header (replace-match "" t t header))))
(while (string-match "[^-.@/,& [:alnum:]]" header)
(setq header (replace-match "" t t header)))
(while (string-match "[-& ]" header)
(setq header (replace-match "," t t header)))
header))
header))
(defun nnmairix-group-toggle-parameter (group parameter description &optional par)
"Toggle on GROUP a certain PARAMETER.