Gnus development mailing list
 help / color / mirror / Atom feed
From: Shenghuo ZHU <zsh@cs.rochester.edu>
Subject: Re: NT / pgnus draft problem
Date: 05 May 1999 01:20:55 -0400	[thread overview]
Message-ID: <2nogk0ccso.fsf@zsh.cs.rochester.edu> (raw)
In-Reply-To: Jack Vinson's message of "04 May 1999 16:08:00 -0500"

[-- Attachment #1: Type: text/plain, Size: 1345 bytes --]

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

>>>>> "AJC" == Alfred J Correira <alfred@GlobeSet.com> writes:
JV> [snip description]

AJC> I have verified this behavior under NTEmacs 20.3.8.2 / pgnus v0.84 and
AJC> someone else did under NTEmacs 20.3 / pgnus v0.83.  If you are running
AJC> something older, let me know if it does / doesn't work correctly for
AJC> you ... of course, if you already know what is going wrong, that's
AJC> even better :-)

JV> I am the second verifier.  I just looked into the problem a little
JV> more.  While I can't fix the problem, its source is in
JV> nndraft-request-article.  There is a code chunk that does

JV> 		 (let ((nnmail-file-coding-system
JV> 			(if (file-newer-than-file-p file auto)
JV> 			    'binary
JV> 			  message-draft-coding-system)))
JV> 		   (nnmail-find-file newest))

JV> The normal/default nnmail-file-coding-system seems to be 'binary
JV> on my machine, but the message-draft-coding-system is 'emacs-mule.
JV> Might this be the source of the difficulties?

I hope someone verify it again after 
        (setq message-draft-coding-system 'emacs-mule-dos)

(Sorry, I haven't verified it in NT Emacs.)

If it works, here is the patch.

Wed May  5 01:15:08 1999  Shenghuo ZHU  <zsh@cs.rochester.edu>

	* message.el (message-draft-coding-system): Use emacs-mule-dos.


[-- Attachment #2: 84-zsh4.diff --]
[-- Type: application/octet-stream, Size: 487 bytes --]

--- message.el	1999/05/05 05:08:26	1.1
+++ message.el	1999/05/05 05:08:56
@@ -862,7 +862,9 @@
 (defvar message-draft-coding-system
   (cond
    ((not (fboundp 'coding-system-p)) nil)
-   ((coding-system-p 'emacs-mule) 'emacs-mule)
+   ((coding-system-p 'emacs-mule) 
+    (if (string-match "nt" system-configuration)
+	'emacs-mule-dos 'emacs-mule))
    ((memq 'escape-quoted (mm-get-coding-system-list)) 'escape-quoted)
    ((coding-system-p 'no-conversion) 'no-conversion)
    (t nil))

[-- Attachment #3: Type: text/plain, Size: 20 bytes --]



-- 
Shenghuo ZHU


  reply	other threads:[~1999-05-05  5:20 UTC|newest]

Thread overview: 8+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1999-05-04 18:35 Alfred J Correira
1999-05-04 21:08 ` Jack Vinson
1999-05-05  5:20   ` Shenghuo ZHU [this message]
1999-05-05 11:49     ` Alfred J Correira
1999-05-05 16:24       ` Shenghuo ZHU
1999-05-05 18:01         ` Alfred J Correira
1999-05-05 15:51 ` Matt Armstrong
1999-05-05 20:16 ` Christophe CUQ

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=2nogk0ccso.fsf@zsh.cs.rochester.edu \
    --to=zsh@cs.rochester.edu \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).