-(if (and (string-match "XEmacs\\|Lucid" emacs-version)
- tm-mail/use-xemacs-popup-menu)
- (setq mail-mode-menu
- (append mail-mode-menu
- (list "---"
- mime-editor/popup-menu-for-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)))
+ )
+ )