From: keiichi <keiichi>
Date: Fri, 24 Dec 1999 02:36:04 +0000 (+0000)
Subject: (mail-decode-encoded-word-region): Use `mime-decode-header-in-region'.
X-Git-Tag: nana-gnus-7_1_0_16~75
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e0451fc094d8a11b23e0cae227832b37f886d672;p=elisp%2Fgnus.git-

(mail-decode-encoded-word-region): Use `mime-decode-header-in-region'.
---

diff --git a/lisp/mail-parse.el b/lisp/mail-parse.el
index c93b890..e9c39e5 100644
--- a/lisp/mail-parse.el
+++ b/lisp/mail-parse.el
@@ -62,7 +62,8 @@
 (defalias 'mail-encode-encoded-word-region 'rfc2047-encode-region)
 (defalias 'mail-encode-encoded-word-buffer 'rfc2047-encode-message-header)
 (defalias 'mail-encode-encoded-word-string 'rfc2047-encode-string)
-(defalias 'mail-decode-encoded-word-region 'rfc2047-decode-region)
+(defun mail-decode-encoded-word-region (beg end)
+  (mime-decode-header-in-region beg end t))
 (defalias 'mail-decode-encoded-word-string 'rfc2047-decode-string)
 
 (provide 'mail-parse)