Mercurial > emacs
comparison lisp/gnus/qp.el @ 43737:4f7c660e6029
* qp.el (quoted-printable-decode-region): Doc addition.
From: Eli Zaretskii <eliz@is.elta.co.il>
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Tue, 05 Mar 2002 19:26:30 +0000 |
| parents | 282970d20daa |
| children | 03cfc305a0fa |
comparison
equal
deleted
inserted
replaced
| 43736:264efb189de1 | 43737:4f7c660e6029 |
|---|---|
| 33 (eval-when-compile (defvar mm-use-ultra-safe-encoding)) | 33 (eval-when-compile (defvar mm-use-ultra-safe-encoding)) |
| 34 | 34 |
| 35 (defun quoted-printable-decode-region (from to &optional coding-system) | 35 (defun quoted-printable-decode-region (from to &optional coding-system) |
| 36 "Decode quoted-printable in the region between FROM and TO, per RFC 2045. | 36 "Decode quoted-printable in the region between FROM and TO, per RFC 2045. |
| 37 If CODING-SYSTEM is non-nil, decode bytes into characters with that | 37 If CODING-SYSTEM is non-nil, decode bytes into characters with that |
| 38 coding-system." | 38 coding-system. |
| 39 | |
| 40 Interactively, you can supply the CODING-SYSTEM argument | |
| 41 with \\[universal-coding-system-argument]." | |
| 39 (interactive | 42 (interactive |
| 40 ;; Let the user determine the coding system with "C-x RET c". | 43 ;; Let the user determine the coding system with "C-x RET c". |
| 41 (list (region-beginning) (region-end) coding-system-for-read)) | 44 (list (region-beginning) (region-end) coding-system-for-read)) |
| 42 (unless (mm-coding-system-p coding-system) ; e.g. `ascii' from Gnus | 45 (unless (mm-coding-system-p coding-system) ; e.g. `ascii' from Gnus |
| 43 (setq coding-system nil)) | 46 (setq coding-system nil)) |