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.6 1995/11/19 08:30:08 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-gd5)
  32        (require 'tm-gnus4)
  33        )
  34       ((string-match "^GNUS 4" gnus-version)
  35        (require 'tm-gd3)
  36        (require 'tm-gnus4)
  37
  38        (add-hook 'gnus-select-group-hook 'tm-gnus/decode-summary-subjects)
  39        (fset 'gnus-article-set-mode-line
  40              (function tm-gnus/article-set-mode-line))
  41        )
  42       ((string-match "^GNUS 3" gnus-version)
  43        (require 'tm-gnus3)
  44        (defvar gnus-article-buffer gnus-Article-buffer)
  45        ))
  46
  47
  48 ;;; @ for tm-edit
  49 ;;;
  50 ;; suggested by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
  51 ;;      1995/11/08 (c.f. [tm ML:1067])
  52 (defun tm-gnus/insert-article (&optional message)
  53   (interactive)
  54   (let (;; for Emacs 19
  55         (mail-citation-hook '(mime-editor/inserted-message-filter))
  56         news-reply-header-hook
  57         mail-yank-hooks
  58
  59         ;; for Emacs 18
  60         (mail-yank-ignored-headers mime-editor/yank-ignored-field-regexp)
  61         (news-make-reply-yank-header (function
  62                                       (lambda (message-id from) "")
  63                                       ))
  64         (news-yank-original-quoting-indicator "")
  65
  66         ;; select raw article buffer
  67         (mail-reply-buffer
  68          (save-excursion
  69            (set-buffer gnus-article-buffer)
  70            (if (eq major-mode 'mime/viewer-mode)
  71                mime::preview/article-buffer
  72              gnus-article-buffer)))
  73         )
  74     (news-reply-yank-original 0)
  75     ))
  76
  77 (call-after-loaded
  78  'tm-edit
  79  (function
  80   (lambda ()
  81     (set-alist
  82      'mime-editor/message-inserter-alist
  83      'news-reply-mode (function tm-gnus/insert-article))
  84     )))
  85
  86
  87 ;;; @ end
  88 ;;;
  89
  90 (provide 'tm-gnus)
  91
  92 (run-hooks 'tm-gnus-load-hook)