tm 7.27.

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

diff --git a/gnus/tm-gnus4.el b/gnus/tm-gnus4.el
index 123b728..157f12f 100644 (file)
--- a/gnus/tm-gnus4.el
+++ b/gnus/tm-gnus4.el
@@ -1,20 +1,35 @@
 ;;;
-;;; tm-gnus4.el --- tm-gnus module for GNUS 4.*
+;;; tm-gnus4.el --- tm-gnus module for GNUS 4, 5.0.* and 5.1.*.
+;;;
+;;; Copyright (C) 1995 Free Software Foundation, Inc.
+;;; Copyright (C) 1995 MORIOKA Tomohiko
+;;;
+;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
+;;;
+;;; This file is part of tm (Tools for MIME).
 ;;;
 
 (require 'tl-str)
 (require 'tl-misc)
-(require 'tm-ognus)
 
 
 ;;; @ version
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-gnus4.el,v 7.1 1995/10/28 05:44:44 morioka Exp $")
+  "$Id: tm-gnus4.el,v 7.2 1995/11/19 08:10:33 morioka Exp $")
 
 (defconst tm-gnus/version
-  (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 4"))
+  (concat (get-version-string tm-gnus/RCS-ID) " for 4 .. 5.1"))
+
+
+;;; @ variable
+;;;
+
+(defvar tm-gnus/automatic-mime-preview t
+  "*If non-nil, show MIME processed article.
+This variable is set to `gnus-show-mime'.")
 
 
 ;;; @ for tm-view
@@ -79,32 +94,72 @@
     )))
 
 
-;;; @ Summary decoding
-;;;
-
-(add-hook 'gnus-select-group-hook (function tm-gnus/decode-summary-subjects))
-
-
 ;;; @ set up
 ;;;
 
-(define-key gnus-summary-mode-map
-  "\et" (function tm-gnus/toggle-decoding-mode))
 (define-key gnus-summary-mode-map "v" (function tm-gnus/view-message))
 (define-key gnus-summary-mode-map
   "\e\r" (function tm-gnus/summary-scroll-down))
 
-(fset 'gnus-article-set-mode-line 'tm-gnus/article-set-mode-line)
-(add-hook 'gnus-article-mode-hook
-         (function tm-gnus/add-decoding-mode-to-mode-line))
-
 (defun tm-gnus/decode-encoded-word-if-you-need ()
-  (if (and tm-gnus/decoding-mode (not gnus-have-all-headers))
-      (mime/decode-message-header)
-    ))
+  (if (not gnus-have-all-headers)
+      (progn
+       (mime/decode-message-header)
+       (run-hooks 'tm-gnus/article-prepare-hook)
+       )))
+
+(defvar tm-gnus/original-article-buffer " *Original Article*")
+
+(defun tm-gnus/preview-article-if-you-need ()
+  (if (not gnus-have-all-headers)
+      (let ((str (buffer-string))
+           (obuf (get-buffer tm-gnus/original-article-buffer))
+           (pbuf (current-buffer))
+           )
+       (if obuf
+           (progn
+             (set-buffer obuf)
+             (setq buffer-read-only nil)
+             (erase-buffer)
+             )
+         (setq obuf (get-buffer-create tm-gnus/original-article-buffer))
+         (set-buffer obuf)
+         )
+       (insert str)
+       (gnus-article-mode)
+       (set-buffer pbuf)
+       (make-local-variable 'tm:mother-button-dispatcher)
+       (setq tm:mother-button-dispatcher
+             (function gnus-article-push-button))
+       (mime/viewer-mode
+        nil nil nil tm-gnus/original-article-buffer gnus-article-buffer)
+       (setq buffer-read-only nil)
+       (gnus-article-show-summary)
+       (run-hooks 'tm-gnus/article-prepare-hook)
+       )))
+
+(setq gnus-show-mime-method
+      (if tm-gnus/automatic-mime-preview
+         (function tm-gnus/preview-article-if-you-need)
+       (function tm-gnus/decode-encoded-word-if-you-need)
+       ))
+
+(setq gnus-show-mime t)
+
+
+;;; @ for BBDB
+;;;
+
+(defun tm-gnus/bbdb-setup ()
+  (if (memq 'bbdb/gnus-update-record gnus-article-prepare-hook)
+      (progn
+       (remove-hook 'gnus-article-prepare-hook 'bbdb/gnus-update-record)
+       (add-hook 'tm-gnus/article-prepare-hook 'bbdb/gnus-update-record)
+       )))
+
+(add-hook 'gnus-startup-hook 'tm-gnus/bbdb-setup t)
 
-(add-hook 'gnus-article-prepare-hook
-         (function tm-gnus/decode-encoded-word-if-you-need) t)
+(tm-gnus/bbdb-setup)
 
 
 ;;; @ end