From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1 ([2001:41d0:2:aacc::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms12 with LMTPS id +KjqFOMqsGBpbAAAsNZ9tg (envelope-from ); Thu, 27 May 2021 23:27:31 +0000 Received: from out2.migadu.com ([2001:41d0:2:aacc::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1 with LMTPS id 2ONOBN8qsGDfOQAAbx9fmQ (envelope-from ); Thu, 27 May 2021 23:27:27 +0000 X-Report-Abuse: Please report any abuse attempt to abuse@migadu.com and include these headers. DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=kyleam.com; s=key1; t=1622158046; h=from:from:reply-to:subject:subject:date:date:message-id:message-id: to:to:cc:mime-version:mime-version: content-transfer-encoding:content-transfer-encoding: in-reply-to:in-reply-to:references:references; bh=y87MpG6oJFtuT4g5MeAhXVf6ESHL2DDoijTMWP1e+sU=; b=qgy7wynp8bBovMFyw/8TzTw1+8pLz0o02ArH3MuhpJoiYGkQvn4ICeH4dFzOnfdbnn3T3y i+eH2D0Mqq1VGYOCYOwWp835qS5d65JtrHOILVQnyuMJCzIin7+/Mh370ZcpLdL2Hsh8Ue qi5aOfta3Xj5vbnqCwOSY8GVYq7FoKwVLtjox4I4MpWBfNu+38EdpgYfiT7ZuwtJe+e+jG E0ohYUoH/UTgTUd5yleyvyXXJY1JhrTR8rHlCqtcI+gccjJQ7pOL3aXaPgEaAtlJOA2wh+ ko6hHmWjXeJYPygwZRqXEyvpJv7sPjF32o2R8zBcJMsgkFOWUJrvR7yCTGK+3A== From: Kyle Meyer To: piem@inbox.kyleam.com Subject: [PATCH v2] Add basic integration for Rmail Date: Thu, 27 May 2021 19:27:14 -0400 Message-Id: <20210527232714.8726-1-kyle@kyleam.com> In-Reply-To: <875yz3iwvk.fsf@kyleam.com> References: <875yz3iwvk.fsf@kyleam.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Migadu-Flow: FLOW_OUT X-Migadu-Auth-User: kyle@kyleam.com X-TUID: waweNusO5NF4 Teach piem how to get the associated inbox and message ID for the current Rmail message. --- Changes in v2: Split test into dedicated tests for piem-rmail-get-inbox and piem-rmail-get-mid. Documentation/piem.texi | 2 ++ Makefile | 6 ++-- piem-rmail.el | 72 ++++++++++++++++++++++++++++++++++++++ tests/piem-rmail-tests.el | 73 +++++++++++++++++++++++++++++++++++++++ tests/piem-tests.el | 1 + 5 files changed, 152 insertions(+), 2 deletions(-) create mode 100644 piem-rmail.el create mode 100644 tests/piem-rmail-tests.el diff --git a/Documentation/piem.texi b/Documentation/piem.texi index f4bbabc..c3208a7 100644 --- a/Documentation/piem.texi +++ b/Documentation/piem.texi @@ -172,6 +172,7 @@ Enabling integration libraries @findex piem-eww-mode @findex piem-gnus-mode @findex piem-notmuch-mode +@findex piem-rmail-mode With inboxes defined, the next step is to enable minor modes that teach particular Emacs modes to link a buffer with a registered inbox. piem @@ -182,6 +183,7 @@ Enabling integration libraries @item Elfeed @item Gnus @item Notmuch +@item Rmail @end itemize For example, if you use notmuch.el to read your mail, you can add diff --git a/Makefile b/Makefile index 5c65ed9..4d88b34 100644 --- a/Makefile +++ b/Makefile @@ -5,8 +5,8 @@ EMACS = emacs BATCH = $(EMACS) --batch -Q -L . -L tests EL = piem.el piem-b4.el piem-elfeed.el piem-eww.el piem-gnus.el \ - piem-maildir.el piem-notmuch.el \ - tests/piem-tests.el + piem-maildir.el piem-notmuch.el piem-rmail.el \ + tests/piem-rmail-tests.el tests/piem-tests.el ELC = $(EL:.el=.elc) all: compile Documentation/piem.info piem-autoloads.el @@ -37,7 +37,9 @@ piem-eww.elc: piem-eww.el piem.elc piem-gnus.elc: piem-gnus.el piem.elc piem-maildir.elc: piem-maildir.el piem-notmuch.elc: piem-notmuch.el piem.elc +piem-rmail.elc: piem-rmail.el piem.elc piem.elc: piem.el piem-maildir.elc +tests/piem-rmail-tests.elc: tests/piem-rmail-tests.el piem-rmail.elc tests/piem-tests.elc: tests/piem-tests.el piem.elc .SUFFIXES: .el .elc .texi .info .html diff --git a/piem-rmail.el b/piem-rmail.el new file mode 100644 index 0000000..ccb9432 --- /dev/null +++ b/piem-rmail.el @@ -0,0 +1,72 @@ +;;; piem-rmail.el --- Rmail integration for piem -*- lexical-binding: t; -*- + +;; Copyright (C) 2020-2021 all contributors + +;; Author: Kyle Meyer +;; Keywords: vc, tools +;; Package-Requires: ((emacs "26.3")) + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;; This library provides a minor mode, `piem-rmail-mode', that +;; modifies `piem' variables to teach functions like `piem-inbox' how +;; to extract information from Rmail mode buffers. + +;;; Code: + +(require 'piem) +(require 'rmail) + +(defgroup piem-rmail nil + "Rmail integration for piem." + :group 'piem) + +(defun piem-rmail--call-with-message (fn) + (when (derived-mode-p 'rmail-mode 'rmail-summary-mode) + (rmail-apply-in-message + rmail-current-message + (lambda () + (search-forward "\n\n" nil 'move) + (narrow-to-region (point-min) (point)) + (funcall fn))))) + +(defun piem-rmail-get-inbox () + "Return inbox name from an Rmail buffer." + (piem-rmail--call-with-message #'piem-inbox-by-header-match)) + +(defun piem-rmail-get-mid () + "Return the message ID of an Rmail buffer." + (when-let ((mid (piem-rmail--call-with-message + (lambda () (mail-fetch-field "message-id"))))) + (replace-regexp-in-string "\\`<\\(.*\\)>\\'" "\\1" mid))) + +;;;###autoload +(define-minor-mode piem-rmail-mode + "Toggle Rmail support for piem. +With a prefix argument ARG, enable piem-rmail mode if ARG is +positive, and disable it otherwise. If called from Lisp, enable +the mode if ARG is omitted or nil." + :global t + :init-value nil + (if piem-rmail-mode + (progn + (add-hook 'piem-get-inbox-functions #'piem-rmail-get-inbox) + (add-hook 'piem-get-mid-functions #'piem-rmail-get-mid)) + (remove-hook 'piem-get-inbox-functions #'piem-rmail-get-inbox) + (remove-hook 'piem-get-mid-functions #'piem-rmail-get-mid))) + +;;; piem-rmail.el ends here +(provide 'piem-rmail) diff --git a/tests/piem-rmail-tests.el b/tests/piem-rmail-tests.el new file mode 100644 index 0000000..b489594 --- /dev/null +++ b/tests/piem-rmail-tests.el @@ -0,0 +1,73 @@ +;;; piem-rmail-tests.el --- tests for piem-rmail -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 all contributors + +;; Author: Kyle Meyer + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Code: + +(require 'ert) +(require 'piem-rmail) + +(defvar piem-rmail-tests-mbox-text "\ +From mboxrd@z Thu Jan 1 00:00:00 1970 +From: A +To: i@inbox.example.com +Subject: test +Date: Sun, 23 May 2021 02:26:01 -0400 +Message-ID: <123@example.com> + +test body + +From mboxrd@z Thu Jan 1 00:00:00 1970 +From: b +To: A +Cc: i@inbox.example.com +Subject: Re: test +Date: Sun, 23 May 2021 02:26:51 -0400 +Message-Id: <456@example.com> +In-Reply-To: <123@example.com> +References: <123@example.com> + +> test body + +no thanks +") + +(ert-deftest piem-rmail-get-inbox () + (should + (equal "foo" + (with-temp-buffer + (insert piem-rmail-tests-mbox-text) + (rmail-mode) + (let ((piem-inboxes '(("foo" :address "i@inbox.example.com")))) + (piem-rmail-get-inbox)))))) + +(ert-deftest piem-rmail-get-mid () + (should + (equal (list "123@example.com" "456@example.com") + (with-temp-buffer + (insert piem-rmail-tests-mbox-text) + (rmail-mode) + (rmail-first-message) + (let ((piem-inboxes '(("foo" :address "i@inbox.example.com")))) + (list (piem-rmail-get-mid) + (progn + (rmail-next-message 1) + (piem-rmail-get-mid)))))))) + +(provide 'piem-rmail-tests) +;;; piem-rmail-tests.el ends here diff --git a/tests/piem-tests.el b/tests/piem-tests.el index 969c9d0..5f01a5e 100644 --- a/tests/piem-tests.el +++ b/tests/piem-tests.el @@ -21,6 +21,7 @@ (require 'ert) (require 'piem) +(require 'piem-rmail-tests) (ert-deftest piem-message-link-re () (should-not (string-match-p base-commit: c99e806fd307ef69adc0d3a277385687edfd3454 -- 2.31.1