diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-31 13:05:16 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-31 13:07:00 -0700 |
| commit | 86f692009b949cedea9ae1e25868c54dece68318 (patch) | |
| tree | d447e3463725a1f13e5a0208093a59e7cda1c52c /lisp/gnus/rfc2231.el | |
| parent | 8bbff0d64d0e6ba21366c9fb24f6973e6c59b8ac (diff) | |
| download | emacs-86f692009b949cedea9ae1e25868c54dece68318.tar.gz emacs-86f692009b949cedea9ae1e25868c54dece68318.tar.bz2 emacs-86f692009b949cedea9ae1e25868c54dece68318.zip | |
Quoting fixes in Gnus
* lisp/gnus/gnus-agent.el:
(gnus-agent-possibly-synchronize-flags-server):
* lisp/gnus/gnus-art.el (gnus-article-browse-delete-temp-files):
* lisp/gnus/gnus-eform.el (gnus-edit-form):
* lisp/gnus/gnus-group.el (gnus-group-edit-group)
(gnus-group-nnimap-edit-acl):
* lisp/gnus/gnus-topic.el (gnus-topic-edit-parameters):
* lisp/gnus/mail-source.el (mail-source-delete-old-incoming):
* lisp/gnus/message.el (message-strip-subject-encoded-words)
(message-check-recipients, message-send-form-letter):
* lisp/gnus/mm-decode.el (mm-display-part):
* lisp/gnus/mm-uu.el (mm-uu-pgp-signed-extract-1):
* lisp/gnus/mml-smime.el (mml-smime-get-dns-cert)
(mml-smime-get-ldap-cert):
* lisp/gnus/spam-report.el (spam-report-process-queue):
Respect ‘text-quoting-style’ in diagnostics.
* lisp/gnus/gnus-art.el (article-display-face)
* lisp/gnus/gnus-fun.el (gnus-display-x-face-in-from):
Use straight quoting in email.
* lisp/gnus/rfc2231.el (rfc2231-decode-encoded-string):
Escape apostrophes in doc strings.
Diffstat (limited to 'lisp/gnus/rfc2231.el')
| -rw-r--r-- | lisp/gnus/rfc2231.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/gnus/rfc2231.el b/lisp/gnus/rfc2231.el index ef7187cbd96..2bc23334199 100644 --- a/lisp/gnus/rfc2231.el +++ b/lisp/gnus/rfc2231.el @@ -209,10 +209,10 @@ must never cause a Lisp error." (defun rfc2231-decode-encoded-string (string) "Decode an RFC2231-encoded string. These look like: - \"us-ascii'en-us'This%20is%20%2A%2A%2Afun%2A%2A%2A\", - \"us-ascii''This%20is%20%2A%2A%2Afun%2A%2A%2A\", - \"'en-us'This%20is%20%2A%2A%2Afun%2A%2A%2A\", - \"''This%20is%20%2A%2A%2Afun%2A%2A%2A\", or + \"us-ascii\\='en-us\\='This%20is%20%2A%2A%2Afun%2A%2A%2A\", + \"us-ascii\\='\\='This%20is%20%2A%2A%2Afun%2A%2A%2A\", + \"\\='en-us\\='This%20is%20%2A%2A%2Afun%2A%2A%2A\", + \"\\='\\='This%20is%20%2A%2A%2Afun%2A%2A%2A\", or \"This is ***fun***\"." (string-match "\\`\\(?:\\([^']+\\)?'\\([^']+\\)?'\\)?\\(.+\\)" string) (let ((coding-system (mm-charset-to-coding-system |