2001-11-15 Simon Josefsson <jas@extundo.com>

	Support "Importance:" header in Message.

	* message.el (message-mode-map): Bind C-c C-p to
	`message-insert-or-toggle-importance'
	(message-mode-menu): Add message-insert-importance-{high,low}.
	(message-insert-importance-high, message-insert-importance-low)
	(message-insert-or-toggle-importance): New functions.
	(message-tool-bar-map): Add {un,}important.
	(message-mode): Doc fix.

2001-11-15  Simon Josefsson  <jas@extundo.com>

	* message.el (message-tool-bar-map): Fix attach toolbar tooltip.

	* mml.el (mml-menu): Fix toolbar tooltip.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aa325cf..e100e45 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,21 @@
+2001-11-15  Simon Josefsson  <jas@extundo.com>
+
+       Support "Importance:" header in Message.
+
+       * message.el (message-mode-map): Bind C-c C-p to
+       `message-insert-or-toggle-importance'
+       (message-mode-menu): Add message-insert-importance-{high,low}.
+       (message-insert-importance-high, message-insert-importance-low) 
+       (message-insert-or-toggle-importance): New functions.
+       (message-tool-bar-map): Add {un,}important.
+       (message-mode): Doc fix.
+
+2001-11-15  Simon Josefsson  <jas@extundo.com>
+
+       * message.el (message-tool-bar-map): Fix attach toolbar tooltip.
+
+       * mml.el (mml-menu): Fix toolbar tooltip.
+
 2001-11-15 14:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * nnfolder.el (nnfolder-save-marks): gnus-prin1 takes one argument.

diff --git a/lisp/message.el b/lisp/message.el
index 358dda2..c0c7a28 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1509,6 +1509,7 @@ Point is left at the beginning of the narrowed-to region."
 
   (define-key message-mode-map "\C-c\C-t" 'message-insert-to)
   (define-key message-mode-map "\C-c\C-n" 'message-insert-newsgroups)
+  (define-key message-mode-map "\C-c\C-p" 'message-insert-or-toggle-importance)
 
   (define-key message-mode-map "\C-c\C-y" 'message-yank-original)
   (define-key message-mode-map "\C-c\M-\C-y" 'message-yank-buffer)
@@ -1551,6 +1552,12 @@ Point is left at the beginning of the narrowed-to region."
     ["Kill To Signature" message-kill-to-signature t]
     ["Newline and Reformat" message-newline-and-reformat t]
     ["Rename buffer" message-rename-buffer t]
+    ["Flag as important" message-insert-importance-high
+     ,@(if (featurep 'xemacs) '(t)
+        '(:help "Mark this message as important"))]
+    ["Flag as unimportant" message-insert-importance-low
+     ,@(if (featurep 'xemacs) '(t)
+        '(:help "Mark this message as unimportant"))]
     ["Spellcheck" ispell-message
      ,@(if (featurep 'xemacs) '(t)
         '(:help "Spellcheck this message"))]
@@ -1646,6 +1653,7 @@ C-c C-v  `message-delete-not-region' (remove the text outside the region).
 C-c C-z  `message-kill-to-signature' (kill the text up to the signature).
 C-c C-r  `message-caesar-buffer-body' (rot13 the message body).
 C-c C-a  `mml-attach-file' (attach a file as MIME).
+C-c C-p  `message-insert-or-toggle-importance'  (insert or cycle importance)
 M-RET    `message-newline-and-reformat' (break the line and reformat)."
   (set (make-local-variable 'message-reply-buffer) nil)
   (make-local-variable 'message-send-actions)
@@ -2061,6 +2069,40 @@ Prefix arg means justify as well."
       (goto-char (point-max))
       (or (bolp) (insert "\n")))))
 
+(defun message-insert-importance-high ()
+  "Insert header to mark message as important."
+  (interactive)
+  (message-remove-header "Importance")
+  (message-goto-eoh)
+  (insert "Importance: high\n"))
+
+(defun message-insert-importance-low ()
+  "Insert header to mark message as unimportant."
+  (interactive)
+  (message-remove-header "Importance")
+  (message-goto-eoh)
+  (insert "Importance: low\n"))
+
+(defun message-insert-or-toggle-importance ()
+  "Insert a \"Importance: high\" header, or cycle through the header values.
+The three allowed values according to RFC 1327 are `high', `normal'
+and `low'."
+  (interactive)
+  (save-excursion
+    (let ((valid '("high" "normal" "low"))
+         (new "high")
+         cur)
+      (when (setq cur (message-fetch-field "Importance"))
+       (message-remove-header "Importance")
+       (setq new (cond ((string= cur "high")
+                        "low")
+                       ((string= cur "low")
+                        "normal")
+                       (t
+                        "high"))))
+      (message-goto-eoh)
+      (insert (format "Importance: %s\n" new)))))
+
 (defun message-elide-region (b e)
   "Elide the text in the region.
 An ellipsis (from `message-elide-ellipsis') will be inserted where the
@@ -5064,9 +5106,15 @@ which specify the range to operate on."
                   (tool-bar-add-item-from-menu
                    'message-dont-send "cancel" message-mode-map)
                   (tool-bar-add-item-from-menu
-                   'mml-attach-file "attach" message-mode-map)
+                   'mml-attach-file "attach" mml-mode-map)
                   (tool-bar-add-item-from-menu
                    'ispell-message "spell" message-mode-map)
+                  (tool-bar-add-item-from-menu
+                   'message-insert-importance-high "important"
+                   message-mode-map)
+                  (tool-bar-add-item-from-menu
+                   'message-insert-importance-low "unimportant"
+                   message-mode-map)
                   tool-bar-map)))))
 
 ;;; Group name completion.

diff --git a/lisp/mml.el b/lisp/mml.el
index 52d0d63..f78228b 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -728,8 +728,10 @@ If HANDLES is non-nil, use it instead reparsing the buffer."
 
 (easy-menu-define
   mml-menu mml-mode-map ""
-  '("Attachments"
-    ["Attach File" mml-attach-file t]
+  `("Attachments"
+    ["Attach File" mml-attach-file
+     ,@(if (featurep 'xemacs) '(t)
+        '(:help "Attach a file at point"))]
     ["Attach Buffer" mml-attach-buffer t]
     ["Attach External" mml-attach-external t]
     ["Insert Part" mml-insert-part t]