mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-25 12:28:09 +01:00
fc4cda07a9
Doing so causes many new compile warnings. Some of these warnings concern genuine changes in behavior that have to be addressed right away. Many other warnings are due to unused variables. Nothing has changed here, except that the byte-compiler can now detect these pre-existing and harmless issues. We delay addressing these issues so that we can focus on the important ones here. A third group of warnings concern arguments that are not actually used inside the function but which cannot be removed because the functions signature is dictated by some outside convention. Silencing these warning is also delayed until subsequent commits.
46 lines
1.7 KiB
EmacsLisp
46 lines
1.7 KiB
EmacsLisp
;;; notmuch-compat.el --- compatibility functions for earlier versions of emacs -*- lexical-binding: t -*-
|
|
;;
|
|
;; 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))
|
|
|
|
(provide 'notmuch-compat)
|
|
|
|
;;; notmuch-compat.el ends here
|