From 9b766d3be3068b38eedebd80deb7d08627c8c8e1 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 22 Jun 2019 16:25:36 +0200 Subject: 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). --- lisp/gnus/mm-view.el | 6 +++--- 1 file 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)) -- cgit v1.2.1