+(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)))
+ )
+ )
+ )
+