-;; (defun gnus-hack-decode-rfc1522 ()
-;; "Emergency hack function for avoiding problems when decoding."
-;; (let ((buffer-read-only nil))
-;; (goto-char (point-min))
-;; ;; Remove encoded TABs.
-;; (while (search-forward "=09" nil t)
-;; (replace-match " " t t))
-;; ;; Remove encoded newlines.
-;; (goto-char (point-min))
-;; (while (search-forward "=10" nil t)
-;; (replace-match " " t t))))
-
-;; (defalias 'gnus-decode-rfc1522 'article-decode-rfc1522)
-;; (defalias 'gnus-article-decode-rfc1522 'article-decode-rfc1522)
-;; (defun article-decode-rfc1522 ()
-;; "Hack to remove QP encoding from headers."
-;; (let ((case-fold-search t)
-;; (inhibit-point-motion-hooks t)
-;; (buffer-read-only nil)
-;; string)
-;; (save-restriction
-;; (narrow-to-region
-;; (goto-char (point-min))
-;; (or (search-forward "\n\n" nil t) (point-max)))
-;; (goto-char (point-min))
-;; (while (re-search-forward
-;; "=\\?iso-8859-1\\?q\\?\\([^?\t\n]*\\)\\?=" nil t)
-;; (setq string (match-string 1))
-;; (save-restriction
-;; (narrow-to-region (match-beginning 0) (match-end 0))
-;; (delete-region (point-min) (point-max))
-;; (insert string)
-;; (article-mime-decode-quoted-printable
-;; (goto-char (point-min)) (point-max))
-;; (subst-char-in-region (point-min) (point-max) ?_ ? )
-;; (goto-char (point-max)))
-;; (goto-char (point-min))))))
-