From d33db7b817a58448eb2bd1352d1410a11d7659f5 Mon Sep 17 00:00:00 2001
From: Satoshi Taoka <taoka@FreeBSD.org>
Date: Thu, 9 Sep 1999 13:51:36 +0000
Subject: Fixed a problem on Mew version 1.94

---
 mail/prom-mew/files/patch-aa | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 mail/prom-mew/files/patch-aa

(limited to 'mail')

diff --git a/mail/prom-mew/files/patch-aa b/mail/prom-mew/files/patch-aa
new file mode 100644
index 000000000000..fefa8f1c60f2
--- /dev/null
+++ b/mail/prom-mew/files/patch-aa
@@ -0,0 +1,31 @@
+--- prom-mew.el.orig	Mon Aug 16 16:14:37 1999
++++ prom-mew.el	Thu Sep  9 22:37:49 1999
+@@ -296,6 +296,11 @@
+        ))
+     ))
+ 
++(if mew-xemacs-p
++   (if (<= emacs-major-version 20)
++       (setq mew-cs-binary mew-cs-noconv))
++)
++
+ (defun prom-mew-setup ()
+   (if prom-mew-setup
+       nil
+@@ -948,6 +953,7 @@
+       nil)
+     ))
+ 
++
+ (defun prom-mew-cache-lastnum (folder &optional cache)
+   (let ((mew-folder-buffer (get-buffer folder))
+ 	(mew-cache (or cache
+@@ -958,7 +964,7 @@
+ 	(set-buffer (get-buffer-create prom-buffer-tmp))
+ 	(erase-buffer)
+ 	(if (file-exists-p mew-cache)
+-	    (mew-frwlet mew-cs-scan mew-cs-noconv
++	    (mew-frwlet mew-cs-scan mew-cs-binary
+ 			(insert-file-contents mew-cache))))
+       (goto-char (point-max))
+       (if (bobp)
-- 
cgit v1.2.3