emacs/mu
1
0
Fork 0
mirror of https://github.com/djcb/mu.git synced 2024-06-26 07:29:17 +02:00
Code Issues Releases Wiki Activity

* mm-view.el: fix saving of attachments

Browse Source
This commit is contained in:
djcb 2011-12-07 08:19:33 +02:00
parent 7fafc5288f
commit e847ab9ca2
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
toys/mm/mm-view.el
View File

@ -371,7 +371,8 @@ removing '^M' etc."
(add-text-properties p (point-max) '(face mm/view-footer-face)))) (add-text-properties p (point-max) '(face mm/view-footer-face))))
;; this is fairly simplistic... ;; this is fairly simplistic...
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward "\\(https?://[-a-zA-Z0-9?_.$%/=+&#@!~,:]*\\)\\>" nil t) (while (re-search-forward "\\(https?://[-a-zA-Z0-9?_.$%/=+&#@!~,:]*\\)\\>"
nil t)
(let ((subst (propertize (match-string-no-properties 0) (let ((subst (propertize (match-string-no-properties 0)
'face 'mm/view-link-face))) 'face 'mm/view-link-face)))
(incf num) (incf num)
@ -580,13 +581,15 @@ See the `org-contacts' documentation for more details."
(mm/view-message))) (mm/view-message)))
(defun mm/view-extract-attachment (attnum) (defun mm/view-extract-attachment (attnum)
"Extract the attachment with ATTNUM" "Extract the attachment with ATTNUM."
(unless mm/attachment-dir (error "`mm/attachment-dir' is not set")) (unless mm/attachment-dir (error "`mm/attachment-dir' is not set"))
(when (or (null mm/attach-map) (zerop (hash-table-count mm/attach-map))) (when (or (null mm/attach-map) (zerop (hash-table-count mm/attach-map)))
(error "No attachments for this message")) (error "No attachments for this message"))
(interactive "nAttachment to extract:") (interactive "nAttachment to extract:")
(let* ((att (gethash attnum mm/attach-map)) (let* ((att (gethash attnum mm/attach-map))
(path (when att (concat mm/attachment-dir "/" (nth 1 att)))) (path (and att (concat mm/attachment-dir
"/" (plist-get att :name))))
(id (and att (plist-get att :index)))
(retry t)) (retry t))
(unless att (error "Not a valid attachment number")) (unless att (error "Not a valid attachment number"))
(while retry (while retry
@ -594,11 +597,11 @@ See the `org-contacts' documentation for more details."
(setq retry (setq retry
(and (file-exists-p path) (and (file-exists-p path)
(not (y-or-n-p (concat "Overwrite " path "?")))))) (not (y-or-n-p (concat "Overwrite " path "?"))))))
(mm/proc-save (plist-get mm/current-msg :docid) (car att) path))) (mm/proc-save (plist-get mm/current-msg :docid) id path)))
(defun mm/view-open-attachment (attnum) (defun mm/view-open-attachment (attnum)
"Extract the attachment with ATTNUM" "Extract the attachment with ATTNUM"
(when (zerop (hash-table-count mm/attach-map)) (unless mm/attach-map
(error "No attachments for this message")) (error "No attachments for this message"))
(interactive "nAttachment to open:") (interactive "nAttachment to open:")
(let* ((att (gethash attnum mm/attach-map)) (let* ((att (gethash attnum mm/attach-map))