From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 15 Apr 2020 21:05:42 +0000 (+0100)
Subject: el/dot-emacs.el: Arrange for mail/news frames to be 80 columns wide.
X-Git-Url: https://git.distorted.org.uk/~mdw/profile/commitdiff_plain/00fe36a6d7cfc415d0e16e6e341ae3492286ca00?hp=5e96bd82468d33bab7655286d63cdcadce6c2e42

el/dot-emacs.el: Arrange for mail/news frames to be 80 columns wide.
---

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 46b8fbd..4372f82 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -854,6 +854,13 @@ Use this to arrange for per-server settings.")
   '(defalias 'nnimap-transform-headers
      (symbol-function 'mdw-nnimap-transform-headers)))
 
+(defadvice gnus-other-frame (around mdw-hack-frame-width compile activate)
+  "Always arrange for mail/news frames to be 80 columns wide."
+  (let ((default-frame-alist (cons `(width . ,(+ 80 mdw-frame-width-fudge))
+				   (cl-delete 'width default-frame-alist
+					      :key #'car))))
+    ad-do-it))
+
 ;;;--------------------------------------------------------------------------
 ;;; Utility functions.