[notmuch] [PATCH 2/2] Add functions notmuch-show-get-(bcc, cc, date, from, subject, to) to return the corresponding header field for the current message as a string. These are thin wrappers around not
From: David Bremner --- notmuch.el | 32 1 files changed, 32 insertions(+), 0 deletions(-) diff --git a/notmuch.el b/notmuch.el index c96fd94..d2a3b1b 100644 --- a/notmuch.el +++ b/notmuch.el @@ -225,6 +225,38 @@ Unlike builtin `previous-line' this version accepts no arguments." (re-search-forward notmuch-show-tags-regexp) (split-string (buffer-substring (match-beginning 1) (match-end 1) +(defun notmuch-show-get-bcc () + "Return To address of current message" + (notmuch-show-get-header-field 'bcc)) + +(defun notmuch-show-get-cc () + "Return To address of current message" + (notmuch-show-get-header-field 'cc)) + +(defun notmuch-show-get-date () + "Return To address of current message" + (notmuch-show-get-header-field 'date)) + +(defun notmuch-show-get-from () + "Return From address of current message" + (notmuch-show-get-header-field 'from)) + +(defun notmuch-show-get-subject () + "Return subject of current message" + (notmuch-show-get-header-field 'subject)) + +(defun notmuch-show-get-to () + "Return To address of current message" + (notmuch-show-get-header-field 'to)) + +(defun notmuch-show-get-header-field (name) + "Retrieve the header field NAME from the current message. +NAME should be a symbol, in lower case, as returned by +mail-header-extract-no-properties" + (let* ((result (assoc name (notmuch-show-get-header))) +(val (and result (cdr result +val)) + (defun notmuch-show-get-header () "Retrieve and parse the header from the current message. Returns an alist with of (header . value) where header is a symbol and value is a string. The summary from notmuch-show is returned as the -- 1.6.5
[notmuch] [PATCH 2/2] Add functions notmuch-show-get-(bcc, cc, date, from, subject, to) to return the corresponding header field for the current message as a string. These are thin wrappers around not
From: David Bremner --- notmuch.el | 32 1 files changed, 32 insertions(+), 0 deletions(-) diff --git a/notmuch.el b/notmuch.el index c96fd94..d2a3b1b 100644 --- a/notmuch.el +++ b/notmuch.el @@ -225,6 +225,38 @@ Unlike builtin `previous-line' this version accepts no arguments." (re-search-forward notmuch-show-tags-regexp) (split-string (buffer-substring (match-beginning 1) (match-end 1) +(defun notmuch-show-get-bcc () + "Return To address of current message" + (notmuch-show-get-header-field 'bcc)) + +(defun notmuch-show-get-cc () + "Return To address of current message" + (notmuch-show-get-header-field 'cc)) + +(defun notmuch-show-get-date () + "Return To address of current message" + (notmuch-show-get-header-field 'date)) + +(defun notmuch-show-get-from () + "Return From address of current message" + (notmuch-show-get-header-field 'from)) + +(defun notmuch-show-get-subject () + "Return subject of current message" + (notmuch-show-get-header-field 'subject)) + +(defun notmuch-show-get-to () + "Return To address of current message" + (notmuch-show-get-header-field 'to)) + +(defun notmuch-show-get-header-field (name) + "Retrieve the header field NAME from the current message. +NAME should be a symbol, in lower case, as returned by +mail-header-extract-no-properties" + (let* ((result (assoc name (notmuch-show-get-header))) +(val (and result (cdr result +val)) + (defun notmuch-show-get-header () "Retrieve and parse the header from the current message. Returns an alist with of (header . value) where header is a symbol and value is a string. The summary from notmuch-show is returned as the -- 1.6.5 ___ notmuch mailing list notmuch@notmuchmail.org http://notmuchmail.org/mailman/listinfo/notmuch
