;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1993/11/20 (obsolete mol's gnus-mime.el)
;;; Version:
-;;; $Id: tm-gnus.el,v 7.18 1996/02/27 19:04:37 morioka Exp $
+;;; $Id: tm-gnus.el,v 7.22 1996/06/27 14:43:48 morioka Exp $
;;; Keywords: news, MIME, multimedia, encoded-word, multilingual
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(cond ((boundp 'gnus-original-article-buffer)
- ;; for September Gnus and Gnus 5.2 ..
- (require 'tm-sgnus)
+ ;; for Gnus 5.2 or later
+ (require 'tm-gnus5)
)
((or (string-match
"^\\((ding) Gnus\\|Gnus v5\\|September Gnus\\)" gnus-version)
))
-;;; @ for tm-edit
-;;;
-
-;; suggested by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;; 1995/11/08 (c.f. [tm ML:1067])
-(defun tm-gnus/insert-article (&optional message)
- (interactive)
- (let (;; for Emacs 19
- (mail-citation-hook '(mime-editor/inserted-message-filter))
- news-reply-header-hook
- mail-yank-hooks
-
- ;; for Emacs 18
- (mail-yank-ignored-headers mime-editor/yank-ignored-field-regexp)
- (news-make-reply-yank-header (function
- (lambda (message-id from) "")
- ))
- (news-yank-original-quoting-indicator "")
-
- ;; select raw article buffer
- (mail-reply-buffer
- (save-excursion
- (set-buffer gnus-article-buffer)
- (if (eq major-mode 'mime/viewer-mode)
- mime::preview/article-buffer
- gnus-article-buffer)))
- )
- (news-reply-yank-original 0)
- ))
-
-;;; modified by Steven L. Baur <steve@miranova.com>
-;;; 1995/12/6 (c.f. [tm-en:209])
-(defun mime-editor/attach-to-news-reply-menu ()
- "Arrange to attach MIME editor's popup menu to VM's"
- (if (boundp 'news-reply-menu)
- (progn
- (setq news-reply-menu (append news-reply-menu
- '("---")
- mime-editor/popup-menu-for-xemacs))
- (remove-hook 'news-setup-hook
- 'mime-editor/attach-to-news-reply-menu)
- )))
-
-(call-after-loaded
- 'tm-edit
- (function
- (lambda ()
- (set-alist
- 'mime-editor/message-inserter-alist
- 'news-reply-mode (function tm-gnus/insert-article))
-
- (autoload 'tm-mail/insert-message "tm-mail")
- (set-alist 'mime-editor/message-inserter-alist
- 'mail-mode (function tm-mail/insert-message))
- (if (string-match "XEmacs\\|Lucid" emacs-version)
- (add-hook 'news-setup-hook 'mime-editor/attach-to-news-reply-menu)
- )
- )))
-
-
-;;; @ for BBDB
-;;;
-
-(call-after-loaded
- 'bbdb
- (lambda ()
- (require 'tm-bbdb)
- ))
-
-(autoload 'tm-bbdb/update-record "tm-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-article-display-hook 'tm-bbdb/update-record)
- )))
-
-(add-hook 'gnus-startup-hook 'tm-gnus/bbdb-setup t)
-
-(tm-gnus/bbdb-setup)
-
-
;;; @ end
;;;