diff options
| -rw-r--r-- | lisp/gnus/gnus-art.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 317d2c83f0f..a2dc82e6ff7 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el | |||
| @@ -2671,11 +2671,12 @@ If READ-CHARSET, ask for a coding system." | |||
| 2671 | (point-min) (point-max) | 2671 | (point-min) (point-max) |
| 2672 | (mm-charset-to-coding-system charset nil t))))))) | 2672 | (mm-charset-to-coding-system charset nil t))))))) |
| 2673 | 2673 | ||
| 2674 | (autoload 'rfc1843-decode-region "rfc1843") | 2674 | (declare-function rfc1843-decode-region "rfc1843" (from to)) |
| 2675 | 2675 | ||
| 2676 | (defun article-decode-HZ () | 2676 | (defun article-decode-HZ () |
| 2677 | "Translate a HZ-encoded article." | 2677 | "Translate a HZ-encoded article." |
| 2678 | (interactive) | 2678 | (interactive) |
| 2679 | (require 'rfc1843) | ||
| 2679 | (save-excursion | 2680 | (save-excursion |
| 2680 | (let ((inhibit-read-only t)) | 2681 | (let ((inhibit-read-only t)) |
| 2681 | (rfc1843-decode-region (point-min) (point-max))))) | 2682 | (rfc1843-decode-region (point-min) (point-max))))) |