From b01b70db05060ddc2bc721d766741dddd5186af4 Mon Sep 17 00:00:00 2001 From: djcb Date: Thu, 29 Dec 2011 10:39:30 +0200 Subject: [PATCH] * mu4e: mark the various views as 'special' --- emacs/mu4e-hdrs.el | 4 ++++ emacs/mu4e-main.el | 1 + emacs/mu4e-view.el | 2 ++ 3 files changed, 7 insertions(+) diff --git a/emacs/mu4e-hdrs.el b/emacs/mu4e-hdrs.el index 9d6680fa..bb9d8f46 100644 --- a/emacs/mu4e-hdrs.el +++ b/emacs/mu4e-hdrs.el @@ -370,6 +370,10 @@ after the end of the search results." field) 'face 'mu4e-title-face) " "))) mu4e-headers-fields)))) + +(put 'mu4e-hdrs-mode 'mode-class 'special) + + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar mu4e-msg-map nil "*internal* A map (hashtable) which maps a database (Xapian) diff --git a/emacs/mu4e-main.el b/emacs/mu4e-main.el index 302bad10..b025ef44 100644 --- a/emacs/mu4e-main.el +++ b/emacs/mu4e-main.el @@ -65,6 +65,7 @@ buffer-read-only t overwrite-mode 'overwrite-mode-binary)) +(put 'mu4e-main-mode 'mode-class 'special) (defun mu4e-action-str (str &optional func-or-shortcut) diff --git a/emacs/mu4e-view.el b/emacs/mu4e-view.el index d0b78c11..f7b2ac5b 100644 --- a/emacs/mu4e-view.el +++ b/emacs/mu4e-view.el @@ -347,6 +347,8 @@ if IS-OPEN is nil, and otherwise open it." (setq major-mode 'mu4e-view-mode mode-name mu4e-view-buffer-name) (setq truncate-lines t buffer-read-only t)) +(put 'mu4e-view-mode 'mode-class 'special) + ;; we mark messages are as read when we leave the message; ie., when skipping to ;; the next/previous one, or leaving the view buffer altogether.