1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
;;; mu4e-lists.el --- Dealing with mailing lists -*- lexical-binding: t -*-
;; Copyright (C) 2011-2025 Dirk-Jan C. Binnema
;; Author: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;; Maintainer: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;; This file is not part of GNU Emacs.
;; mu4e 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.
;; mu4e 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 mu4e. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; In this file, we create a table of list-id -> shortname for mailing lists.
;; The shortname (friendly) should a at most 8 characters, camel-case
;;; Code:
(require 'mu4e-message)
(require 'mu4e-helpers)
;;; Helpers
(defmacro mu4e-message-id-url(base-url)
"Construct lambda to get an archive URL for message.
This is based on some BASE-URL to which the message-id is concatenated;
e.g. public-inbox-based archives."
`(lambda (msg) (concat ,base-url "/" (plist-get msg :message-id))))
(defmacro mu4e-x-seq-url (base-url)
"Construct x-seq archive URL for MSG or nil if not found.
Use BASE-URL as the prefix."
`(lambda (msg)
(when-let* ((xseq (mu4e-fetch-field msg "X-Seq")))
(concat ,base-url "/" xseq))))
;;; Configuration
(defvar mu4e-mailing-lists
`( (:list-id "bbdb-info.lists.sourceforge.net" :name "BBDB")
(:list-id "boost-announce.lists.boost.org" :name "Boost")
(:list-id "boost-interest.lists.boost.org" :name "Boost")
(:list-id "curl-library.cool.haxx.se" :name "Curl")
(:list-id "dbus.lists.freedesktop.org" :name "DBus")
(:list-id "desktop-devel-list.gnome.org" :name "Gnome")
(:list-id "discuss-webrtc.googlegroups.com" :name "WebRTC")
(:list-id "emacs-devel.gnu.org" :name "EmacsDev"
:archive ,(mu4e-message-id-url "https://yhetil.org/emacs-devel"))
(:list-id "emacs-orgmode.gnu.org" :name "Orgmode"
:archive ,(mu4e-message-id-url "https://list.orgmode.org"))
(:list-id "emms-help.gnu.org" :name "Emms")
(:list-id "gcc-help.gcc.gnu.org" :name "Gcc")
(:list-id "gmime-devel-list.gnome.org" :name "GMime")
(:list-id "gnome-shell-list.gnome.org" :name "Gnome")
(:list-id "gnu-emacs-sources.gnu.org" :name "Emacs")
(:list-id "gnupg-users.gnupg.org" :name "Gnupg")
(:list-id "gstreamer-devel.lists.freedesktop.org" :name "GstDev")
(:list-id "gtk-devel-list.gnome.org" :name "GtkDev")
(:list-id "guile-devel.gnu.org" :name "Guile"
:archive ,(mu4e-message-id-url "https://yhetil.org/guile-devel"))
(:list-id "guile-user.gnu.org" :name "Guile"
:archive ,(mu4e-message-id-url "https://yhetil.org/guile-user"))
(:list-id "help-gnu-emacs.gnu.org" :name "EmacsUsr"
:archive ,(mu4e-message-id-url "https://yhetil.org/emacs-user"))
(:list-id "mu-discuss.googlegroups.com" :name "Mu")
(:list-id "nautilus-list.gnome.org" :name "Nautilus")
(:list-id "notmuch.notmuchmail.org" :name "Notmuch"
:archive ,(mu4e-message-id-url "https://yhetil.org/notmuch"))
(:list-id "sqlite-announce.sqlite.org" :name "SQlite")
(:list-id "sqlite-dev.sqlite.org" :name "SQLite")
(:list-id "xapian-discuss.lists.xapian.org" :name "Xapian")
(:list-id "xdg.lists.freedesktop.org" :name "XDG")
(:list-id "wl-en.lists.airs.net" :name "WdrLust")
(:list-id "wl-en.ml.gentei.org" :name "WdrLust")
(:list-id "xapian-devel.lists.xapian.org" :name "Xapian")
(:list-id "zsh-users.zsh.org" :name "Zsh"
:archive ,(mu4e-x-seq-url "https://www.zsh.org/users")))
"List of plists with keys:
- `:list-id' - the mailing list id
- `:name' - the display name
- `:archive' - (optional) a function taking a MSG and
returning an URL to to the online-location of
the message.
After changes, use `mu4e-mailing-list-info-refresh' to update the
corresponding data-structures.")
(defgroup mu4e-lists nil "Configuration for mailing lists."
:group 'mu4e)
(defcustom mu4e-user-mailing-lists nil
"A list with plists like `mu4e-mailing-lists'.
These are used in addition to the built-in list
`mu4e-mailing-lists'.
The older format, a list of cons cells,
(LIST-ID . NAME)
is still supported for backward compatibility.
After changing, use `mu4e-mailing-list-info-refresh' to make mu4e
use the new values."
:group 'mu4e-headers
:type '(repeat (plist)))
(defcustom mu4e-mailing-list-patterns '("\\([^.]*\\)\\.")
"A list of regexps to capture a shortname out of a list-id.
For the first regex that matches, its first match-group will be
used as the shortname."
:group 'mu4e-headers
:type '(repeat (regexp)))
(defvar mu4e--lists-hash nil
"Hash-table of list-id => plist.
Based on `mu4e-mailing-lists' and `mu4e-user-mailing-lists'.")
(defun mu4e-mailing-list-info-refresh ()
"Refresh the mailing list info.
Based on the current value of `mu4e-mailing-lists' and
`mu4e-user-mailing-lists'."
(interactive)
(setq mu4e--lists-hash (make-hash-table :test 'equal))
(seq-do (lambda (item)
(if (mu4e-plistp item)
;; the new format
(puthash (plist-get item :list-id) item mu4e--lists-hash)
;; backward compatibility
(puthash (car item) (cdr item) mu4e--lists-hash)))
(append mu4e-mailing-lists
mu4e-user-mailing-lists))
mu4e--lists-hash)
(defun mu4e-mailing-list-info (list-id)
"Get mailing list info for LIST-ID.
Return nil if not found."
(unless mu4e--lists-hash (mu4e-mailing-list-info-refresh))
(gethash list-id mu4e--lists-hash))
(defun mu4e-get-mailing-list-shortname (list-id)
"Get the short-name for a mailing-list with list-id LIST-ID.
Either we know about this mailing list, or otherwise
we guess one."
(or ;; 1. perhaps we have it in one of our lists?
(plist-get (mu4e-mailing-list-info list-id) :name)
;; 2. see if it matches some pattern
(if (seq-find (lambda (p) (string-match p list-id))
mu4e-mailing-list-patterns)
(match-string 1 list-id)
;; 3. otherwise, just return the whole thing
list-id)))
(defun mu4e-mailing-list-archive-url (&optional msg)
"Get the mailing-list archive URL for MSG.
If MSG is nil, use the message at point."
(when-let* ((msg (or msg (mu4e-message-at-point)))
(list-id (plist-get msg :list))
(list-info (and list-id (mu4e-mailing-list-info list-id)))
(func (plist-get list-info :archive)))
(when func
(funcall func msg))))
(provide 'mu4e-lists)
;;; mu4e-lists.el ends here
|
