From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 22 Jun 2019 14:25:36 +0000 (+0200)
Subject: Respect case-insensite DelSp flow-fill parameter
X-Git-Tag: emacs-27.0.90~2316
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9b766d3be3068b38eedebd80deb7d08627c8c8e1;p=emacs.git

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).
---

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))