diff options
| author | Lars Ingebrigtsen | 2019-06-22 16:25:36 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-22 16:25:36 +0200 |
| commit | 9b766d3be3068b38eedebd80deb7d08627c8c8e1 (patch) | |
| tree | d8686c6be4db86aa75f1c22bda739dc96742eaa0 /lisp | |
| parent | d038d31c37b6d06abf09fbe676866ac829256098 (diff) | |
| download | emacs-9b766d3be3068b38eedebd80deb7d08627c8c8e1.tar.gz emacs-9b766d3be3068b38eedebd80deb7d08627c8c8e1.zip | |
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).
Diffstat (limited to 'lisp')
| -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 @@ | |||
| 22 | 22 | ||
| 23 | ;;; Code: | 23 | ;;; Code: |
| 24 | 24 | ||
| 25 | (eval-when-compile (require 'cl-lib)) | 25 | (require 'cl-lib) |
| 26 | (require 'mail-parse) | 26 | (require 'mail-parse) |
| 27 | (require 'mailcap) | 27 | (require 'mailcap) |
| 28 | (require 'mm-bodies) | 28 | (require 'mm-bodies) |
| @@ -359,8 +359,8 @@ | |||
| 359 | (save-restriction | 359 | (save-restriction |
| 360 | (narrow-to-region b (point)) | 360 | (narrow-to-region b (point)) |
| 361 | (goto-char b) | 361 | (goto-char b) |
| 362 | (fill-flowed nil (equal (cdr (assoc 'delsp (mm-handle-type handle))) | 362 | (fill-flowed nil (cl-equalp (cdr (assoc 'delsp (mm-handle-type handle))) |
| 363 | "yes")) | 363 | "yes")) |
| 364 | (goto-char (point-max)))) | 364 | (goto-char (point-max)))) |
| 365 | (save-restriction | 365 | (save-restriction |
| 366 | (narrow-to-region b (point)) | 366 | (narrow-to-region b (point)) |