'(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.