mu4e: clean up some unneeded backports

Remove some functions we no longer need with Emacs 28.

There's still some things left, which will be handled in due time.
This commit is contained in:
Dirk-Jan C. Binnema
2026-01-21 22:09:51 +02:00
committed by Seth Ladygo
parent 06b4625e61
commit 7b42f1ee77
3 changed files with 5 additions and 9 deletions

View File

@ -583,12 +583,6 @@ COMPONENTS."
(mapconcat (lambda (part) (if (stringp part) part "")) (mapconcat (lambda (part) (if (stringp part) part ""))
(cons directory components) "/"))) (cons directory components) "/")))
(defun mu4e-string-replace (from-string to-string in-string)
"Replace FROM-STRING with TO-STRING in IN-STRING each time it occurs.
Mu4e's version of Emacs 28's `string-replace'."
(replace-regexp-in-string (regexp-quote from-string)
to-string in-string nil 'literal))
(defun mu4e-plistp (object) (defun mu4e-plistp (object)
"Non-nil if and only if OBJECT is a valid plist. "Non-nil if and only if OBJECT is a valid plist.
This is mu4e's version of Emacs 29's `plistp'." This is mu4e's version of Emacs 29's `plistp'."

View File

@ -203,10 +203,10 @@ binding representation, remove that first letter."
(bindstr (bindstr
(if (and alt (> (length bindstr) 1)) alt bindstr)) (if (and alt (> (length bindstr) 1)) alt bindstr))
(title ;; remove first letter afrer [] if it equal last of binding (title ;; remove first letter afrer [] if it equal last of binding
(mu4e-string-replace (string-replace
(concat "[@]" (substring bindstr -1)) "[@]" title)) (concat "[@]" (substring bindstr -1)) "[@]" title))
(title ;; insert binding in [@] (title ;; insert binding in [@]
(mu4e-string-replace (string-replace
"[@]" (format "[%s]" (propertize bindstr 'face 'mu4e-highlight-face)) "[@]" (format "[%s]" (propertize bindstr 'face 'mu4e-highlight-face))
title)) title))
(map (make-sparse-keymap))) (map (make-sparse-keymap)))

View File

@ -1,6 +1,6 @@
;;; mu4e-obsolete.el --- Obsolete things -*- lexical-binding: t -*- ;;; mu4e-obsolete.el --- Obsolete things -*- lexical-binding: t -*-
;; Copyright (C) 2022-2024 Dirk-Jan C. Binnema ;; Copyright (C) 2022-2026 Dirk-Jan C. Binnema
;; Author: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> ;; Author: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
;; Maintainer: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> ;; Maintainer: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
@ -283,5 +283,7 @@
;; mu4e. ;; mu4e.
(define-obsolete-function-alias 'mu4e-clear-caches #'ignore "1.11.15") (define-obsolete-function-alias 'mu4e-clear-caches #'ignore "1.11.15")
(define-obsolete-function-alias 'mu4e-string-replace #'string-replace "1.14.0")
(provide 'mu4e-obsolete) (provide 'mu4e-obsolete)
;;; mu4e-obsolete.el ends here ;;; mu4e-obsolete.el ends here