gnus/tm-gnus.el

   1 ;;;
   2 ;;; tm-gnus.el --- MIME extension for GNUS
   3 ;;;
   4 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
   5 ;;; Copyright (C) 1993,1994,1995 MORIOKA Tomohiko
   6 ;;;
   7 ;;; Author: Morioka Tomohiko <morioka@jaist.ac.jp>
   8 ;;; Version:
   9 ;;;     $Id: tm-gnus.el,v 7.5 1995/11/16 15:28:58 morioka Exp $
  10 ;;; Keywords: news, MIME, multimedia, encoded-word, multilingual
  11 ;;;
  12 ;;; This file is part of tm (Tools for MIME).
  13 ;;;
  14
  15 (require 'gnus)
  16
  17
  18 ;;; @ variables
  19 ;;;
  20
  21 (defvar tm-gnus/startup-hook nil)
  22
  23
  24 ;;; @ set up
  25 ;;;
  26
  27 (cond ((boundp 'gnus-original-article-buffer)
  28        (require 'tm-sgnus)
  29        )
  30       ((string-match "^\\(Gnus v5\\|September Gnus\\)" gnus-version)
  31        (require 'tm-gnus5)
  32        )
  33       ((string-match "(ding)" gnus-version)
  34        (require 'tm-dgnus)
  35        )
  36       ((string-match "^GNUS 4" gnus-version)
  37        (require 'tm-gnus4)
  38        )
  39       ((string-match "^GNUS 3" gnus-version)
  40        (require 'tm-gnus3)
  41        (defvar gnus-article-buffer gnus-Article-buffer)
  42        ))
  43
  44
  45 ;;; @ for tm-edit
  46 ;;;
  47 ;; suggested by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
  48 ;;      1995/11/08 (c.f. [tm ML:1067])
  49 (defun tm-gnus/insert-article (&optional message)
  50   (interactive)
  51   (let (;; for Emacs 19
  52         (mail-citation-hook '(mime-editor/inserted-message-filter))
  53         news-reply-header-hook
  54         mail-yank-hooks
  55
  56         ;; for Emacs 18
  57         (mail-yank-ignored-headers mime-editor/yank-ignored-field-regexp)
  58         (news-make-reply-yank-header (function
  59                                       (lambda (message-id from) "")
  60                                       ))
  61         (news-yank-original-quoting-indicator "")
  62
  63         ;; select raw article buffer
  64         (mail-reply-buffer
  65          (save-excursion
  66            (set-buffer gnus-article-buffer)
  67            (if (eq major-mode 'mime/viewer-mode)
  68                mime::preview/article-buffer
  69              gnus-article-buffer)))
  70         )
  71     (news-reply-yank-original 0)
  72     ))
  73
  74 (call-after-loaded
  75  'tm-edit
  76  (function
  77   (lambda ()
  78     (set-alist
  79      'mime-editor/message-inserter-alist
  80      'news-reply-mode (function tm-gnus/insert-article))
  81     )))
  82
  83
  84 ;;; @ end
  85 ;;;
  86
  87 (provide 'tm-gnus)
  88
  89 (run-hooks 'tm-gnus-load-hook)