From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp0 ([2001:41d0:2:863f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms12 with LMTPS id 6ITgIGUPsGCZZwAAsNZ9tg (envelope-from ); Thu, 27 May 2021 21:30:13 +0000 Received: from out1.migadu.com ([2001:41d0:2:863f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp0 with LMTPS id WLlWEGEPsGDoRgAA1q6Kng (envelope-from ); Thu, 27 May 2021 21:30:09 +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=1622151009; 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; bh=2m81QE2DUksQ2GO33VhPtr/UaW4yEIrIGVZOZJcnRTg=; b=XhbaqMw11ahPto+TJOwXTcrTJX8BkF514ztRXLIsyuHjJxDZUMRMDQjxKhsGBf1au5Nr5n VpLS6q+bzL1WJSF4ReGW7pgHVgt+IZvFIAUaefJKUSKkThBUNw6QYPUbbbrwkRIHzyghmq vf4TfkjW4RO1OxqtV5hRbDwXgZUY01HAoHIKQ0kMgz+dDgQXb7CPXgY5hoJwxPNOX1affV PxTYZLdfZY8LyWpSs2Ha/5a84pn5NrZPr5gPIWy0sQctMdBqfODDhCV445HsjWkng7Qym8 nzkP2JAVy2hfUEaYuohyiG2e0sGKYn+wQYkPLYrxmxibQWXHfqGcJ38J2fpAEw== From: Kyle Meyer To: piem@inbox.kyleam.com Subject: [PATCH] Add basic integration for Rmail Date: Thu, 27 May 2021 17:30:01 -0400 Message-Id: <20210527213001.5265-1-kyle@kyleam.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Migadu-Flow: FLOW_OUT X-Migadu-Auth-User: kyle@kyleam.com X-TUID: 00TTLtblVJ9p Teach piem how to get the associated inbox and message ID for the current Rmail message. --- I'm not an Rmail user, but I've been playing around with it a bit while thinking about the lei interface. Documentation/piem.texi | 2 ++ Makefile | 6 ++-- piem-rmail.el | 72 +++++++++++++++++++++++++++++++++++++++ tests/piem-rmail-tests.el | 69 +++++++++++++++++++++++++++++++++++++ tests/piem-tests.el | 1 + 5 files changed, 148 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..f2340d3 --- /dev/null +++ b/tests/piem-rmail-tests.el @@ -0,0 +1,69 @@ +;;; 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) + +(ert-deftest piem-rmail-get-inbox () + (let ((piem-inboxes '(("foo" :address "i@inbox.example.com"))) + (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 +")) + (should + (equal "foo" + (with-temp-buffer + (insert mbox-text) + (rmail-mode) + (piem-rmail-get-inbox)))) + (should + (equal (list "123@example.com" "456@example.com") + (with-temp-buffer + (insert mbox-text) + (rmail-mode) + (rmail-first-message) + (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