From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/23949 Path: main.gmane.org!not-for-mail From: Shenghuo ZHU Newsgroups: gmane.emacs.gnus.general Subject: Re: two more things (patch: 92-zsh3) Date: 06 Jul 1999 23:24:50 -0400 Organization: U of Rochester Sender: owner-ding@hpc.uh.edu Message-ID: <2npv25jg59.fsf@tiger.jia.vnet> References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035161588 5975 80.91.224.250 (21 Oct 2002 00:53:08 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 00:53:08 +0000 (UTC) Return-Path: Original-Received: from farabi.math.uh.edu (farabi.math.uh.edu [129.7.128.57]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id XAA22762 for ; Tue, 6 Jul 1999 23:27:54 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by farabi.math.uh.edu (8.9.1/8.9.1) with ESMTP id WAB23873; Tue, 6 Jul 1999 22:24:20 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 06 Jul 1999 22:25:11 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id WAA02077 for ; Tue, 6 Jul 1999 22:25:00 -0500 (CDT) Original-Received: from cayuga.cs.rochester.edu (cayuga.cs.rochester.edu [192.5.53.209]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id XAA22620 for ; Tue, 6 Jul 1999 23:23:57 -0400 (EDT) Original-Received: from heart.cs.rochester.edu (heart.cs.rochester.edu [192.5.53.109]) by cayuga.cs.rochester.edu (8.9.3/Q) with ESMTP id XAA21640 for ; Tue, 6 Jul 1999 23:23:51 -0400 (EDT) Original-Received: (from zsh@localhost) by heart.cs.rochester.edu (8.9.3/8.9.3) id XAA05969; Tue, 6 Jul 1999 23:24:50 -0400 Original-To: ding@gnus.org X-Attribution: ZSH X-Face: 'IF:e51ib'Qbl^(}l^&4-J`'P!@[4~O|&k#:@Gld#b/]oMq&`&FVY._3+b`mzp~Jeve~/#/ ERD!OTe<86UhyN=l`mrPY)M7_}`Ktt\K+58Z!hu7>qU,i.N7TotU[FYE(f1;}`g2xj!u*l`^&=Q!g{ *q|ddto|nkt"$r,K$[)"|6,elPH= GJ6Q Original-Lines: 26 User-Agent: Gnus/5.070092 (Pterodactyl Gnus v0.92) XEmacs/21.2 (Chiyoda) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:23949 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:23949 --=-=-= >>>>> "VVV" == Vladimir Volovich writes: VVV> 1) when i compose an 8-bit message and press C-d, and it goes to VVV> drafts, it is stored in mule encoding (and is not shown correctly VVV> unless i press C-u g). (i think it is known, but not yet solved?) Try this patch. I hope this patch does not clobber Japanese in queued mail. 1999-07-06 Shenghuo ZHU * nndraft.el (nndraft-request-article): Use difference coding-systems for queue and drafts. * gnus-sum.el (gnus-summary-setup-default-charset): Special-case nndraft:drafts. * mm-util.el (mm-auto-save-coding-system): New coding system. * message.el (message-draft-coding-system): Use it. --=-=-= Content-Type: application/x-patch Content-Disposition: attachment; filename=92-zsh3.diff --- nndraft.el 1999/07/07 01:51:24 1.1 +++ nndraft.el 1999/07/07 02:43:12 @@ -30,6 +30,7 @@ (require 'gnus-start) (require 'nnmh) (require 'nnoo) +(require 'mm-util) (eval-when-compile (require 'cl) ;; This is just to shut up the byte-compiler. @@ -111,8 +112,10 @@ (when (and (file-exists-p newest) (let ((nnmail-file-coding-system (if (file-newer-than-file-p file auto) - 'binary - message-draft-coding-system))) + (if (equal group "drafts") + message-draft-coding-system + mm-text-coding-system) + mm-auto-save-coding-system))) (nnmail-find-file newest))) (save-excursion (set-buffer nntp-server-buffer) --- gnus-sum.el 1999/07/07 02:34:56 1.1 +++ gnus-sum.el 1999/07/07 02:38:07 @@ -9284,6 +9284,8 @@ (defun gnus-summary-setup-default-charset () "Setup newsgroup default charset." + (if (equal gnus-newsgroup-name "nndraft:drafts") + (setq gnus-newsgroup-charset nil) (let* ((name (and gnus-newsgroup-name (gnus-group-real-name gnus-newsgroup-name))) (ignored-charsets @@ -9316,7 +9318,7 @@ charset))) gnus-default-charset)) (set (make-local-variable 'gnus-newsgroup-ignored-charsets) - ignored-charsets))) + ignored-charsets)))) ;;; ;;; Mime Commands --- mm-util.el 1999/07/07 01:52:35 1.1 +++ mm-util.el 1999/07/07 02:03:09 @@ -118,6 +118,18 @@ (x-ctext . ctext)) "A mapping from invalid charset names to the real charset names.") +(defconst mm-auto-save-coding-system + (cond + ((memq 'emacs-mule (mm-get-coding-system-list)) + (if (memq system-type '(windows-nt ms-dos ms-windows)) + 'emacs-mule-dos 'emacs-mule)) + ((memq 'escape-quoted (mm-get-coding-system-list)) + 'escape-quoted) + ((memq 'no-conversion (mm-get-coding-system-list)) + 'no-conversion) + (t nil)) + "Coding system of auto save file.") + ;;; Internal variables: ;;; Functions: --- message.el 1999/07/07 02:03:34 1.1 +++ message.el 1999/07/07 02:04:55 @@ -861,14 +861,7 @@ "Coding system to encode outgoing mail.") (defvar message-draft-coding-system - (cond - ((not (fboundp 'coding-system-p)) nil) - ((coding-system-p 'emacs-mule) - (if (string-match "nt\\|windows" 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)) + mm-auto-save-coding-system "Coding system to compose mail.") ;;; Internal variables. --=-=-= -- Shenghuo ZHU --=-=-=--