X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch-print.el;h=880f96d9053f38c3e7ad5a0837e874db7b8a89d2;hb=9b7e0dcb9a8bd8a5898d9dd68715f3a0d0e5280d;hp=f96ccbeb2428425169ea21d3fd80f44a67a1ab82;hpb=05f4904616b95a17332d7573e44a4aad2dc4033e;p=notmuch

diff --git a/emacs/notmuch-print.el b/emacs/notmuch-print.el
index f96ccbeb..880f96d9 100644
--- a/emacs/notmuch-print.el
+++ b/emacs/notmuch-print.el
@@ -19,6 +19,8 @@
 ;;
 ;; Authors: David Edmondson <dme@dme.org>
 
+(declare-function notmuch-show-get-prop "notmuch-show" (prop &optional props))
+
 (defcustom notmuch-print-mechanism 'notmuch-print-lpr
   "How should printing be done?"
   :group 'notmuch
@@ -80,6 +82,7 @@ Optional OUTPUT allows passing a list of flags to muttprint."
 
 (defun notmuch-print-message (msg)
   "Print a message using the user-selected mechanism."
+  (set-buffer-modified-p nil)
   (funcall notmuch-print-mechanism msg))
 
 (provide 'notmuch-print)