mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(quoted-printable-decode-region): Avoid invalid

Browse Source 
coding-systems.
This commit is contained in:
Dave Love 2000-10-13 14:08:06 +00:00
parent cafafe0b81
commit b5287163ec
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/gnus/qp.el
View File

@ -37,12 +37,14 @@
If CODING-SYSTEM is non-nil, decode bytes into characters with that
coding-system."
(interactive "r")
(unless (mm-coding-system-p coding-system) ; e.g. `ascii' from Gnus
(setq coding-system nil))
(save-excursion
(save-restriction
;; RFC 2045: An "=" followed by two hexadecimal digits, one or
;; both of which are lowercase letters in "abcdef", is formally
;; illegal. A robust implementation might choose to recognize
;; them as the corresponding uppercase letters.
;; RFC 2045: ``An "=" followed by two hexadecimal digits, one
;; or both of which are lowercase letters in "abcdef", is
;; formally illegal. A robust implementation might choose to
;; recognize them as the corresponding uppercase letters.''
(let ((case-fold-search t))
(narrow-to-region from to)
;; Do this in case we're called from Gnus, say, in a buffer