mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-22 02:48:08 +01:00
ff80122972
Notmuch requires at least version 25 of Emacs now. Adjust comments that previously referenced version 24 specifically, even though they also apply to later releases. Remove documentation and code that no longer applies. - `mm-shr' no longer references `gnus-inhibit-images'.
48 lines
1.8 KiB
EmacsLisp
48 lines
1.8 KiB
EmacsLisp
;;; notmuch-compat.el --- compatibility functions for earlier versions of emacs
|
|
;;
|
|
;; The functions in this file are copied from more modern versions of
|
|
;; emacs and are Copyright (C) 1985-1986, 1992, 1994-1995, 1999-2017
|
|
;; Free Software Foundation, Inc.
|
|
;;
|
|
;; This file is part of Notmuch.
|
|
;;
|
|
;; Notmuch 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.
|
|
;;
|
|
;; Notmuch 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 Notmuch. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
;;; Code:
|
|
|
|
;; Before Emacs 26.1 lines that are longer than 998 octets were not.
|
|
;; folded. Commit 77bbca8c82f6e553c42abbfafca28f55fc995d00 fixed
|
|
;; that. Until we drop support for Emacs 25 we have to backport that
|
|
;; fix. To avoid interfering with Gnus we only run the hook when
|
|
;; called from notmuch-message-mode.
|
|
|
|
(declare-function mail-header-fold-field "mail-parse" nil)
|
|
|
|
(defun notmuch-message--fold-long-headers ()
|
|
(when (eq major-mode 'notmuch-message-mode)
|
|
(goto-char (point-min))
|
|
(while (not (eobp))
|
|
(when (and (looking-at "[^:]+:")
|
|
(> (- (line-end-position) (point)) 998))
|
|
(mail-header-fold-field))
|
|
(forward-line 1))))
|
|
|
|
(unless (fboundp 'message--fold-long-headers)
|
|
(add-hook 'message-header-hook 'notmuch-message--fold-long-headers))
|
|
|
|
;; End of compatibility functions
|
|
|
|
(provide 'notmuch-compat)
|
|
|
|
;;; notmuch-compat.el ends here
|