diff options
| author |  David Edmondson <dme@dme.org> | 2012-01-30 10:16:01 +0000 |
|---|---|---|
| committer |  David Bremner <bremner@debian.org> | 2012-02-03 21:20:15 -0400 |
| commit | 6bd3d8af5431542f352f084b6366e88b98b019a1 (patch) | |
| tree | fe878194e965a5708e090bcd9759fe32cb2841db /emacs/notmuch-print.el | |
| parent | e516a712bb79e523629012ee6a8325f5166b4ee5 (diff) | |
emacs: Prefer '[No Subject]' to blank subjects.
Diffstat (limited to 'emacs/notmuch-print.el')
| -rw-r--r-- | emacs/notmuch-print.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/emacs/notmuch-print.el b/emacs/notmuch-print.el index 880f96d9..6653d977 100644 --- a/emacs/notmuch-print.el +++ b/emacs/notmuch-print.el @@ -19,6 +19,8 @@ ;; ;; Authors: David Edmondson <dme@dme.org> +(require 'notmuch-lib) + (declare-function notmuch-show-get-prop "notmuch-show" (prop &optional props)) (defcustom notmuch-print-mechanism 'notmuch-print-lpr @@ -58,14 +60,16 @@ Optional OUTPUT allows passing a list of flags to muttprint." (defun notmuch-print-ps-print (msg) "Print a message buffer using the ps-print package." - (let ((subject (plist-get (notmuch-show-get-prop :headers msg) :Subject))) + (let ((subject (notmuch-prettify-subject + (plist-get (notmuch-show-get-prop :headers msg) :Subject)))) (rename-buffer subject t) (ps-print-buffer))) (defun notmuch-print-ps-print/evince (msg) "Preview a message buffer using ps-print and evince." (let ((ps-file (make-temp-file "notmuch")) - (subject (plist-get (notmuch-show-get-prop :headers msg) :Subject))) + (subject (notmuch-prettify-subject + (plist-get (notmuch-show-get-prop :headers msg) :Subject)))) (rename-buffer subject t) (ps-print-buffer ps-file) (notmuch-print-run-evince ps-file))) |