;;;
;;; tm-mail.el --- mail-mode extension.
;;;
-;;; Copyright (C) 1995 KOBAYASHI Shuhei
+;;; Copyright (C) 1995,1996 KOBAYASHI Shuhei
;;;
-;;; Author: KOBAYASHI Shuhei <shuhei@cmpt01.phys.tohoku.ac.jp>
+;;; Author: KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
;;; modified by MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; and Neal Becker <neal@neal.ctd.comsat.com>
+;;; Maintainer: KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
;;; Created: 1995/11/27
-;;; Version: $Id: tm-mail.el,v 1.1 1995/12/03 13:40:45 morioka Exp $
+;;; Version: $Id: tm-mail.el,v 6.0 1996/04/16 18:24:02 morioka Exp $
;;; Keywords: mail, MIME, multimedia
;;;
;;; This file is part of tm (Tools for MIME).
;;; You should have received a copy of the GNU General Public License
;;; along with This program. If not, write to the Free Software
;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;;;
+;;; Code:
+
+(require 'tm-edit)
(defun tm-mail/insert-message (&optional message)
(interactive)
))
))
+(defvar tm-mail/use-xemacs-popup-menu running-xemacs)
+
+(if (and running-xemacs tm-mail/use-xemacs-popup-menu)
+ (cond
+ ((string-match "19.14" emacs-version)
+ (setq mail-menubar-menu
+ (append mail-menubar-menu
+ (list "---"
+ mime-editor/popup-menu-for-xemacs)))
+ )
+ (t
+ (setq mail-mode-menu
+ (append mail-mode-menu
+ (list "---"
+ mime-editor/popup-menu-for-xemacs)))
+ )
+ )
+ )
+
;;; @ end
;;;
(provide 'tm-mail)
+
+;;; tm-mail.el ends here