- Switch to the version maintained by the developers of Wanderlust.

- Update to the snapshot on 2019-05-26.

1 files changed, 0 insertions, 78 deletions

diff --git a/editors/flim/files/patch-eword-encode.el b/editors/flim/files/patch-eword-encode.el
deleted file mode 100644
index 08db886877b6..000000000000
--- a/editors/flim/files/patch-eword-encode.el
+++ /dev/null
@@ -1,78 +0,0 @@
-Index: eword-encode.el
-===================================================================
---- eword-encode.el.orig	2007-09-06 07:48:50 UTC
-+++ eword-encode.el
-@@ -162,15 +162,15 @@ MODE is allows `text', `comment', `phras
- ;;;
- 
- (defmacro make-ew-rword (text charset encoding type)
--  (` (list (, text)(, charset)(, encoding)(, type))))
-+  `(list ,text ,charset ,encoding ,type))
- (defmacro ew-rword-text (rword)
--  (` (car (, rword))))
-+  `(car ,rword))
- (defmacro ew-rword-charset (rword)
--  (` (car (cdr (, rword)))))
-+  `(car (cdr ,rword)))
- (defmacro ew-rword-encoding (rword)
--  (` (car (cdr (cdr (, rword))))))
-+  `(car (cdr (cdr ,rword))))
- (defmacro ew-rword-type (rword)
--  (` (car (cdr (cdr (cdr (, rword)))))))
-+  `(car (cdr (cdr (cdr ,rword)))))
- 
- (defun ew-find-charset-rule (charsets)
-   (if charsets
-@@ -184,30 +184,30 @@ MODE is allows `text', `comment', `phras
- ;; which is not depended on the Mule model.  We should redesign
- ;; `eword-encode-split-string' to avoid to depend on the Mule model.
- (if (featurep 'utf-2000)
--;; for CHISE Architecture
--(defun tm-eword::words-to-ruled-words (wl &optional mode)
--  (let (mcs)
-+    ;; for CHISE Architecture
-+    (defun tm-eword::words-to-ruled-words (wl &optional mode)
-+      (let (mcs)
-+	(mapcar (function
-+		 (lambda (word)
-+		   (setq mcs (detect-mime-charset-string (cdr word)))
-+		   (make-ew-rword
-+		    (cdr word)
-+		    mcs
-+		    (cdr (or (assq mcs mime-header-charset-encoding-alist)
-+			     (cons mcs mime-header-default-charset-encoding)))
-+		    mode)
-+		   ))
-+		wl)))
-+
-+  ;; for legacy Mule
-+  (defun tm-eword::words-to-ruled-words (wl &optional mode)
-     (mapcar (function
- 	     (lambda (word)
--	       (setq mcs (detect-mime-charset-string (cdr word)))
--	       (make-ew-rword
--		(cdr word)
--		mcs
--		(cdr (or (assq mcs mime-header-charset-encoding-alist)
--			 (cons mcs mime-header-default-charset-encoding)))
--		mode)
--	       ))
--	    wl)))
--
--;; for legacy Mule
--(defun tm-eword::words-to-ruled-words (wl &optional mode)
--  (mapcar (function
--	   (lambda (word)
--	     (let ((ret (ew-find-charset-rule (car word))))
--	       (make-ew-rword (cdr word) (car ret)(nth 1 ret) mode)
--	       )))
--	  wl))
--)
-+	       (let ((ret (ew-find-charset-rule (car word))))
-+		 (make-ew-rword (cdr word) (car ret)(nth 1 ret) mode)
-+		 )))
-+	    wl))
-+  )
- 
- (defun ew-space-process (seq)
-   (let (prev a ac b c cc)