Re: pgnus on a Windows box

[Shenghuo ZHU <zsh@cs.rochester.edu>]

>>>>> "Jack" == Jack Vinson <jvinson@chevax.ecs.umass.edu> writes:

Jack> Sure, I can try.  The problem is completely solved if I do
Jack> (setq nnmail-file-coding-system 'raw-text-dos)

Jack> But the example is pretty straightforward.  With this value set
Jack> to 'binary, my summary buffer looks normal. As shown in the
Jack> enclosed ex_summary.txt.  (All of these messages happen to have
Jack> come before I moved to emacs-20.3.1.)  When I hit reply on a
Jack> message, the message buffer looks like ex_message1.txt.  If I
Jack> change nnmail-file-coding-system to 'raw-text-dos and reply to
Jack> the same message, the message buffer looks correct as shown in
Jack> ex_message2.txt.  For this to work I must select a different
Jack> message and then reselect the first message for the
Jack> nnmail-file-coding-system to take effect when it reads that
Jack> file.  (I am working in the nnml back end.)

Test this patch. Some new voos are added.

-- 
Shenghuo

:- cut ----------------------
--- ChangeLog	1998/11/29 09:55:03	1.2
+++ ChangeLog	1998/11/29 10:04:19
@@ -1,3 +1,11 @@
+Sun Nov 29 04:55:40 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+	* nnmail.el (nnmail-file-coding-system-1): New variable.
+	* nnfolder.el (nnfolder-file-coding-system): Ditto.
+	(nnfolder-read-folder): Use nnfolder-file-coding-system.
+	* nnml.el (nnml-file-coding-system): New variable.
+	(nnml-request-article): Use nnml-file-coding-system.
+
 Sun Nov 29 03:50:20 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
 	* mm-decode.el (mm-inlinable-p): Save the result of test.

--- nnmail.el	1998/11/29 09:51:30	1.1
+++ nnmail.el	1998/11/29 09:54:36
@@ -496,6 +496,11 @@
 (defvar nnmail-file-coding-system 'binary
   "Coding system used in nnmail.")
 
+(defvar nnmail-file-coding-system-1 
+  (if (string-match "nt" system-configuration)
+      'raw-text-dos 'binary)
+  "Another coding system used in nnmail.")
+
 (defun nnmail-find-file (file)
   "Insert FILE in server buffer safely."
   (set-buffer nntp-server-buffer)

--- nnfolder.el	1998/11/29 09:46:50	1.1
+++ nnfolder.el	1998/11/29 09:57:05
@@ -90,6 +90,7 @@
 (defvoo nnfolder-buffer-alist nil)
 (defvoo nnfolder-scantime-alist nil)
 (defvoo nnfolder-active-timestamp nil)
+(defvoo nnfolder-file-coding-system nnmail-file-coding-system-1)
 
 \f
 
@@ -682,7 +683,10 @@
 
 (defun nnfolder-read-folder (group)
   (let* ((file (nnfolder-group-pathname group))
-	 (buffer (set-buffer (nnheader-find-file-noselect file))))
+	 (buffer (set-buffer 
+		  (let ((nnmail-file-coding-system 
+			 nnfolder-file-coding-system))
+		    (nnheader-find-file-noselect file)))))
     (if (equal (cadr (assoc group nnfolder-scantime-alist))
 	       (nth 5 (file-attributes file)))
 	;; This looks up-to-date, so we don't do any scanning.
--- nnml.el	1998/11/29 09:53:00	1.1
+++ nnml.el	1998/11/29 09:59:55
@@ -86,6 +86,8 @@
 
 (defvar nnml-nov-buffer-file-name nil)
 
+(defvoo nnml-file-coding-system nnmail-file-coding-system-1)
+
 \f
 
 ;;; Interface functions.
@@ -183,7 +185,9 @@
       (nnheader-report 'nnml "No such file: %s" path))
      ((file-directory-p path)
       (nnheader-report 'nnml "File is a directory: %s" path))
-     ((not (save-excursion (nnmail-find-file path)))
+     ((not (save-excursion (let ((nnmail-file-coding-system 
+				  nnml-file-coding-system)) 
+			     (nnmail-find-file path))))
       (nnheader-report 'nnml "Couldn't read file: %s" path))
      (t
       (nnheader-report 'nnml "Article %s retrieved" id)