From 57a0cf597c458c20cb98a2e671ac624b16559223 Mon Sep 17 00:00:00 2001
From: JSDurand <mmemmew@gmail.com>
Date: Fri, 24 Dec 2021 22:57:15 +0800
Subject: gnus-conf: view HTML mails in an external browser

---
 gnus-conf.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'gnus-conf.el')

diff --git a/gnus-conf.el b/gnus-conf.el
index e9d6d9a..0005e8d 100644
--- a/gnus-conf.el
+++ b/gnus-conf.el
@@ -139,6 +139,9 @@
 
 ;;;; Set the correct server on sending mails
 
+;; This is adapted from the following URL:
+;; https://www.emacswiki.org/emacs/MultipleSMTPAccounts.
+
 (defvar durand-smtp-servers nil
   "The list of SMTP servers that I use.
 Each server is a list of the form:
@@ -267,6 +270,17 @@ identity named durand."
 
 (define-key message-mode-map (vector 3 ?i) #'durand-choose-identity)
 
+;;; Always view HTML emails in an external browser
+
+(defun durand-browse-html-mail-advice (fn &rest args)
+  "Browse HTML mails in an external browser."
+  (let ((browse-url-browser-function
+         browse-url-secondary-browser-function))
+    (funcall fn (car args))))
+
+(advice-add #'gnus-article-browse-html-article
+            :around #'durand-browse-html-mail-advice)
+
 ;;; Call me an expert.
 
 (setq gnus-expert-user t)
-- 
cgit v1.2.3-18-g5258