This commit was generated by cvs2svn to compensate for changes in r533,

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

diff --git a/tm-gnus.el b/tm-gnus.el
index bdadec2..e2acfa5 100644 (file)
--- a/tm-gnus.el
+++ b/tm-gnus.el
@@ -17,7 +17,7 @@
 ;;; @ version
 ;;;
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-gnus.el,v 5.0 1994/10/17 07:18:44 morioka Exp $")
+  "$Id: tm-gnus.el,v 5.1 1994/10/25 07:17:51 morioka Exp $")
 
 (defconst tm-gnus/version (get-version-string tm-gnus/RCS-ID))
 
@@ -27,7 +27,7 @@
 (defvar tm-gnus/startup-hook nil)
 
 
-;;; @ to decode subject in mode-line
+;;; @ to decode subjects in mode-line
 ;;;
 ;; This function imported from gnus.el.
 ;;
@@ -57,6 +57,19 @@ If you don't like it, define your own gnus-article-set-mode-line."
   (set-buffer-modified-p t))
 
 
+;;; @ to decode subjects in Summary buffer
+;;;
+(defun tm-gnus/decode-summary-subjects ()
+  (mapcar (function
+          (lambda (header)
+            (nntp-set-header-subject
+             header
+             (mime/decode-string (gnus-header-subject header))
+             )))
+         gnus-newsgroup-headers)
+  )
+
+
 ;;; @ change MIME header decoding mode, decoding or non decoding.
 ;;;