tm 7.105.1.

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

diff --git a/gnus/tm-gnus3.el b/gnus/tm-gnus3.el
index f7b3833..366b0bc 100644 (file)
--- a/gnus/tm-gnus3.el
+++ b/gnus/tm-gnus3.el
@@ -2,12 +2,13 @@
 ;;; tm-gnus3.el --- tm-gnus module for GNUS 3.*
 ;;;
 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1993,1994,1995 MORIOKA Tomohiko
+;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;;         and KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
 ;;; Created: 1993/11/20
-;;; Version: $Revision: 7.4 $
+;;; Version: $Revision: 7.10 $
 ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -46,7 +47,7 @@
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-gnus3.el,v 7.4 1996/01/23 04:53:43 morioka Exp $")
+  "$Id: tm-gnus3.el,v 7.10 1996/06/09 06:51:09 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for GNUS 3"))
@@ -105,9 +106,8 @@ If you don't like it, define your own gnus-article-set-mode-line."
                  gnus-newsgroup-name
                  (if gnus-current-article
                      (format "/%d" gnus-current-article) "")
-                 (rightful-boundary-short-string subject
-                                                 (min (string-width subject)
-                                                      maxlen))
+                 (truncate-string subject (min (string-width subject)
+                                               maxlen))
                  (if (> (string-width subject) maxlen) "..." "")
                  (make-string (max 0 (- 17 (string-width subject))) ? )
                  )))
@@ -173,6 +173,49 @@ With arg, turn MIME encoded-word processing on iff arg is positive."
     )))
 
 
+;;; @ 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 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)
+    ))
+
+(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))
+
+    (set-alist 'mime-editor/split-message-sender-alist
+              'news-reply-mode
+              'gnus-inews-news)
+    )))
+
+
 ;;; @ for tm-partial
 ;;;
 
@@ -225,24 +268,26 @@ With arg, turn MIME encoded-word processing on iff arg is positive."
 ;;; @ for BBDB
 ;;;
 
+(call-after-loaded
+ 'bbdb
+ (function
+  (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-prepare-hook 'tm-bbdb/update-record)
        )))
 
 (add-hook 'gnus-startup-hook 'tm-gnus/bbdb-setup t)
 
 (tm-gnus/bbdb-setup)
 
-(call-after-loaded
- 'bbdb
- (function
-  (lambda ()
-    (require 'tm-bbdb)
-    )))
-
 
 ;;; @ end
 ;;;