【发布时间】:2014-04-04 17:40:07
【问题描述】:
有没有什么方法可以在不重命名组的情况下更改 GNUS 中组的显示名称?我从 IMAP 服务器上读取了我的电子邮件,并且组名非常难看(例如 nnimap+uwindsor:INBOX。)我尝试使用命令 gnus-group-rename-group 但它试图更改实际服务器上的名称。有什么方法可以简单地将实际名称映射到某个本地显示名称,以使我的组缓冲区更具可读性?
【问题讨论】:
有没有什么方法可以在不重命名组的情况下更改 GNUS 中组的显示名称?我从 IMAP 服务器上读取了我的电子邮件,并且组名非常难看(例如 nnimap+uwindsor:INBOX。)我尝试使用命令 gnus-group-rename-group 但它试图更改实际服务器上的名称。有什么方法可以简单地将实际名称映射到某个本地显示名称,以使我的组缓冲区更具可读性?
【问题讨论】:
这就是我解决问题的方法。首先,非常感谢abiessu 通过他的 cmets 为我指明了正确的方向。
(setq gnus-group-line-format "%M%S%5y/%-5t: %uG %D\n")
(defun gnus-user-format-function-G (arg)
(let ((mapped-name (assoc gnus-tmp-group group-name-map)))
(if (null mapped-name)
gnus-tmp-group
(cdr mapped-name))))
这个小功能只是在我定义的地图中查找当前组名,如果有“翻译”,它会显示该名称而不是实际名称。我在配置中使用的一些示例是:
(setq group-name-map '(("nnimap+uwindsor:INBOX" . "School-Inbox")
("nnimap+uwindsor:[Gmail]/Starred" . "School-Starred")
("nnimap+uwindsor:[Gmail]/Sent Mail" . "School-Sent")))
只使用 alist 很好,因为我可以随心所欲地创建映射,而不必求助于正则表达式、模式等。
【讨论】: