fix the post attach command for use in message-mode

diff --git a/.emacs b/.emacs
index 535c48410a77a4e1784217eedead8e6d2681cb8e..30bbd4349e0e1e21236f62701e4500263cdfbf5b 100644 (file)
--- a/.emacs
+++ b/.emacs
@@ -219,13 +219,42 @@ Maildir, or by Message-ID."
 
 (add-to-list 'auto-mode-alist '("mutt-[a-z0-9]+-[0-9]+-" . message-mode))
 (add-to-list 'auto-mode-alist '("muttrc" . muttrc-mode))
-(add-hook 'mail-mode-hook
-     (lambda ()
-      (font-lock-add-keywords nil
-        '(("^[ \t]*>[ \t]*>[ \t]*>.*$"
-           (0 'mail-multiply-quoted-text-face))
-          ("^[ \t]*>[ \t]*>.*$"
-           (0 'mail-double-quoted-text-face))))))
+(defun my-message-mode-settings ()
+  (font-lock-add-keywords nil
+                          '(("^[ \t]*>[ \t]*>[ \t]*>.*$"
+                             (0 'message-multiply-quoted-text-face))
+                            ("^[ \t]*>[ \t]*>.*$"
+                             (0 'message-double-quoted-text-face))))
+  (local-set-key (kbd "C-c C-a") 'my-post-attach-file)
+  )
+(add-hook 'message-mode-hook 'my-message-mode-settings)
+
+(defun my-post-attach-file ()
+  "Prompt for an attachment."
+  (interactive)
+  (let ((file (read-file-name "Attach file: " nil nil t nil))
+        (description (string-read "Description: ")))
+    (my-header-attach-file file description)))
+
+(symbol-function 'my-post-attach-file)
+
+(defun my-header-attach-file (file description)
+  "Attach a FILE to the current message (works with Mutt).
+Argument DESCRIPTION MIME description."
+  (interactive "fAttach file: \nsDescription: ")
+  (when (> (length file) 0)
+    (save-excursion
+      (save-match-data
+        (save-restriction
+          (widen)
+          (goto-char (point-min))
+          (search-forward-regexp "^$")
+          (insert (concat "Attach: " (replace-regexp-in-string "\\([[:space:]\\]\\)" "\\\\\\1" (file-truename file)) " "
+                          description "\n"))
+          (message (concat "Attached '" file "'."))
+          (setq post-has-attachment t))))))
+
+
 
 (setq mail-yank-prefix "> ")