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 ac15c58..e2acfa5 100644 (file)
--- a/tm-gnus.el
+++ b/tm-gnus.el
@@ -1,22 +1,33 @@
 ;;;
-;;; $Id: tm-gnus.el,v 3.0 1994/08/28 16:22:16 morioka Exp $
-;;;
 ;;;   A MIME extension for GNUS
 ;;;
 ;;; by Morioka Tomohiko, 1993/11/20
+;;;
 
 (provide 'tm-gnus)
 
+
+;;; @ require modules
+;;;
 (require 'tm-misc)
+(require 'tl-str)
 (require 'gnus)
 
 
+;;; @ version
+;;;
+(defconst tm-gnus/RCS-ID
+  "$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))
+
+
 ;;; @ variables
 ;;;
 (defvar tm-gnus/startup-hook nil)
 
 
-;;; @ to decode subject in mode-line
+;;; @ to decode subjects in mode-line
 ;;;
 ;; This function imported from gnus.el.
 ;;
@@ -46,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.
 ;;;