From bfc4c1600258d57a725aca11e680e346295121f7 Mon Sep 17 00:00:00 2001 From: David Maus Date: Thu, 24 Jun 2010 16:19:36 +0200 Subject: [PATCH] Remove Org mode mailing list prefix. * org-issue.el (org-issue-remove-ml-prefix): New function. (org-issue-get-msginfo:gnus, org-issue-get-msginfo:wl): Remove Org mode mailing list prefix. --- elisp/org-issue.el | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/elisp/org-issue.el b/elisp/org-issue.el index daf53be..8be6e9d 100644 --- a/elisp/org-issue.el +++ b/elisp/org-issue.el @@ -23,6 +23,9 @@ ;; 2010-06-24 David Maus ;; ;; * org-issue.el (org-issue-display): Move point in other window. +;; (org-issue-remove-ml-prefix): New function. +;; (org-issue-get-msginfo:gnus, org-issue-get-msginfo:wl): Remove +;; Org mode mailing list prefix. ;; ;; 2010-06-22 David Maus ;; @@ -96,6 +99,12 @@ flag is added in removed by the functions `org-issue-new', (setq s (replace-match ")" nil nil s))) s) +(defun org-issue-remove-ml-prefix (s) + "Return S without Org mode mailing list prefix." + (if (string-match "^\\[Orgmode\\] " s) + (replace-match "" nil nil s)) + s) + (defun org-issue-get-msginfo () "Return cons with message id in car and subject in cdr." (cond @@ -116,7 +125,8 @@ Operates on Gnus messages." (org-remove-angle-brackets (mail-header-id header))) (org-issue-replace-brackets - (mail-header-subject header))))) + (org-issue-remove-ml-prefix + (mail-header-subject header)))))) (defun org-issue-get-msginfo:wl () "Return cons with message id in car and subject in cdr. @@ -131,7 +141,8 @@ Operates on Wanderlust messages." (org-remove-angle-brackets (org-wl-message-field 'message-id ent))) (org-issue-replace-brackets - (org-wl-message-field 'subject ent))))) + (org-issue-remove-ml-prefix + (org-wl-message-field 'subject ent)))))) (defun org-issue-exists-p (id) "Return non-nil, if an issue identified by ID exists." -- 2.11.4.GIT