tm 7.16.

[elisp/tm.git] / gnus / tm-ognus.el

diff --git a/gnus/tm-ognus.el b/gnus/tm-ognus.el
index 1b7b936..43d848e 100644 (file)
--- a/gnus/tm-ognus.el
+++ b/gnus/tm-ognus.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: tm-ognus.el,v 7.0 1995/10/03 05:08:59 morioka Exp $
+;;;    $Id: tm-ognus.el,v 7.1 1995/10/17 16:56:12 morioka Exp $
 ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -16,9 +16,9 @@
 (require 'gnus)
 
 (autoload 'mime/decode-message-header
-  "tm-ew-d" "Decode MIME encoded-word." t)
-(autoload 'mime/decode-encoded-words-string
-  "tm-ew-d" "Decode MIME encoded-word." t)
+  "tm-ew-d" "Decode MIME encoded-words in message header." t)
+(autoload 'mime-eword/decode-string
+  "tm-ew-d" "Decode MIME encoded-words in string." t)
 
 
 (defvar tm-gnus/decoding-mode t "*Decode MIME header if non-nil.")
@@ -63,7 +63,7 @@ If you don't like it, define your own gnus-article-set-mode-line."
   (let ((maxlen 15)                    ;Maximum subject length
        (subject
         (if gnus-current-headers
-            (mime/decode-encoded-words-string
+            (mime-eword/decode-string
              (nntp-header-subject gnus-current-headers))
           "")
         ))
@@ -90,8 +90,7 @@ If you don't like it, define your own gnus-article-set-mode-line."
           (lambda (header)
             (let ((subj (or (gnus-header-subject header) "")))
               (nntp-set-header-subject
-               header
-               (mime/decode-encoded-words-string subj))
+               header (mime-eword/decode-string subj))
               )))
          gnus-newsgroup-headers)
   )