summaryrefslogtreecommitdiff
path: root/mail/prom-mew/files/patch-aa
blob: fefa8f1c60f2dbdf5967e45d5aa6cbc4e9f0a192 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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)