diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-22 16:25:36 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-22 16:25:36 +0200 |
commit | 9b766d3be3068b38eedebd80deb7d08627c8c8e1 (patch) | |
tree | d8686c6be4db86aa75f1c22bda739dc96742eaa0 | |
parent | d038d31c37b6d06abf09fbe676866ac829256098 (diff) | |
download | emacs-9b766d3be3068b38eedebd80deb7d08627c8c8e1.tar.gz |
Respect case-insensite DelSp flow-fill parameter
* lisp/gnus/mm-view.el (mm-inline-text): The DelSp parameter is
case-insentitive, so make it work then it's "Yes" (bug#26775).
-rw-r--r-- | lisp/gnus/mm-view.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el index 849488293a7..6ffa1fc168d 100644 --- a/lisp/gnus/mm-view.el +++ b/lisp/gnus/mm-view.el @@ -22,7 +22,7 @@ ;;; Code: -(eval-when-compile (require 'cl-lib)) +(require 'cl-lib) (require 'mail-parse) (require 'mailcap) (require 'mm-bodies) @@ -359,8 +359,8 @@ (save-restriction (narrow-to-region b (point)) (goto-char b) - (fill-flowed nil (equal (cdr (assoc 'delsp (mm-handle-type handle))) - "yes")) + (fill-flowed nil (cl-equalp (cdr (assoc 'delsp (mm-handle-type handle))) + "yes")) (goto-char (point-max)))) (save-restriction (narrow-to-region b (point)) |