tm / tm-mail.el

;;; tm-mail.el --- mail-mode extension.

;; Copyright (C) 1995,1996 KOBAYASHI Shuhei

;; Author: KOBAYASHI Shuhei <>
;; modified by MORIOKA Tomohiko <>
;;         and Neal Becker <>
;; Maintainer: KOBAYASHI Shuhei <>
;; Created: 1995/11/27
;; Version: $Id$
;; Keywords: mail, MIME, multimedia

;; This file is part of tm (Tools for MIME).

;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 2, or (at
;; your option) any later version.

;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING.  If not, write to
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Code:

(require 'tm-edit)

(defun tm-mail/insert-message (&optional message)
  (let* (mail-yank-hooks
	 (mail-citation-hook '(mime-editor/inserted-message-filter))
     ((and (boundp 'vm-mail-buffer) vm-mail-buffer)
      ;; called from VM.
      (let ((mail-reply-buffer vm-mail-buffer))
        (if (null message)
            (call-interactively 'vm-yank-message)
          (vm-yank-message message)))
     ((boundp 'rmail-send-actions-rmail-buffer)
      ;; called from RMAIL, emacs-19.29 or later.
      (mail-yank-original nil)
     ((and (boundp 'gnus-article-buffer) (get-buffer gnus-article-buffer))
      ;; maybe called from Gnus.
     ((and (boundp 'mail-reply-buffer) mail-reply-buffer)
      ;; maybe called from RMAIL.
      (mail-yank-original nil)
      (message "Sorry, I don't have message inserter for your MUA.")

(defvar tm-mail/use-xemacs-popup-menu running-xemacs)

(if (and running-xemacs tm-mail/use-xemacs-popup-menu)
      (setq mail-menubar-menu
	    (append mail-menubar-menu
		    (list "---"
      (setq mail-mode-menu
	    (append mail-mode-menu
		    (list "---"

;;; @ end

(provide 'tm-mail)

;;; tm-mail.el ends here
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.