From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/17066 Path: main.gmane.org!not-for-mail From: Tatsuya Ichikawa Newsgroups: gmane.emacs.gnus.general Subject: gnus-agent : .overview and .agentview file coding system. Date: 14 Sep 1998 15:20:40 +0900 Organization: Semi-gnus Org. =?ISO-2022-JP?B?GyRCQ2ZJdDtZSXQbKEI=?= Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by WEMI 1.8.5 - "Higashi-Tagonoura") Content-Type: multipart/mixed; boundary="Multipart_Mon_Sep_14_15:20:40_1998-1" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035155833 31408 80.91.224.250 (20 Oct 2002 23:17:13 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 23:17:13 +0000 (UTC) Return-Path: Original-Received: from gizmo.hpc.uh.edu (gizmo.hpc.uh.edu [129.7.102.31]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id CAA08254 for ; Mon, 14 Sep 1998 02:21:27 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (sina.hpc.uh.edu [129.7.3.5]) by gizmo.hpc.uh.edu (8.7.6/8.7.3) with ESMTP id AAF24181; Mon, 14 Sep 1998 00:52:30 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 14 Sep 1998 01:19:57 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id BAA25712 for ; Mon, 14 Sep 1998 01:19:38 -0500 (CDT) Original-Received: from epsongw6.epson.co.jp (epsongw6.epson.co.jp [202.248.17.19]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id CAA08142 for ; Mon, 14 Sep 1998 02:19:17 -0400 (EDT) Original-Received: from epsongw.epson.co.jp by epsongw6.epson.co.jp (8.8.8+2.7Wbeta7/3.6W-98061119) id PAA10846; Mon, 14 Sep 1998 15:19:07 +0900 (JST) Original-Received: from hv.epson.co.jp by epsongw.epson.co.jp (8.8.8+2.7Wbeta7/3.6W98091214) id PAA26478 for ; Mon, 14 Sep 1998 15:19:06 +0900 (JST) Original-Received: from hv08.hv.epson.co.jp (hv08 [163.141.23.108]) by hv.epson.co.jp (8.9.1/3.7W-nomx) with ESMTP id GAA10452 for ; Mon, 14 Sep 1998 06:18:39 GMT Original-To: Gnus ML X-MimeOLE: Produced By FLAM-DOODLE 1.9.3 - =?ISO-2022-JP-2?B?Ig==?= =?ISO-2022-JP-2?B?GyQoRFRgGyhCIg==?= 2.5YR7.0/11.0 X-Info: http://pgp.nic.ad.jp/cgi-bin/pgpsearchkey.pl?op=get&search=0x0A2D6599 X-PGP-Sig-Version: v1.3.3 - "A Taste Of Honey" (Yet another PGP authenticating utility) X-PGP-Key-Info: 512bits, KeyID 0x0A2D6599, Created 1996-07-10, Algorithm RSA X-PGP-Fingerprint: 79 B7 05 41 1A 6F AF D0 4A E9 D2 6F 79 56 C5 98 X-PGP-Sig: 5.0i Subject,Message-ID,Date,From,User-Agent,X-Face iQBVAwUBNfy1uXiR0oMKLWWZAQHvqgIAjjR4k+a6Kr2eJQqH8v4GW2dWy1piNtCl bvH3WDbBpO6U8QGzvoEYxI8yAoB14K5vZSRZ9iDhBbqwTPnBakk5lQ== =2VA/ X-Face-Version: X-Face utility v1.3.2 - "The Fool On The Hill" with Select X-Face v0.09 - "Figure Of Eight" X-Face: )@S%lkEM.>!A/-!cMWjA!?5>bQ4q^}xw+"Jkd%xRgh)>nh#p]U^<$KYjozZd"8.NJsmi?i# $q?SQUm$/V!%y"ib&I{?2iKd1Q!g4{fv8q$'q3cr:NIUL('C2^9 MvP=l3cVR`%:nF~|XkxNi9}?_8XS8C)zs!h1vrxf?l1IfG[+W>X\OJY=qdsodGAk!BJae3T:pHQ\_W |$Xtu$URQi"E"Dz5zKMg`9E1oO30F?g X-Ya-Pop3: Multiple POP3 account utiliy for Gnus v1.11 - "Star ring" X-Emacs: Emacs 20.2, MULE 3.0 =?ISO-2022-JP?B?KBskQjlITVUybBsoQiks?= Meadow-1.01 =?ISO-2022-JP?B?KBskQj9pRzU8bhsoQik=?= Original-Lines: 126 User-Agent: T-gnus/6.10.019 (based on Pterodactyl Gnus 0.30) WEMI/1.8.5 (Higashi-Tagonoura) FLAM-DOODLE/1.9.3 (=?ISO-2022-JP-2?B?GyQoRFRgGyhC?= 2.5YR7.0/11.0) Emacs/20.2 MULE/3.0 (=?ISO-2022-JP?B?GyRCOUhNVTJsGyhC?=) Meadow/1.01 (=?ISO-2022-JP?B?GyRCP2lHNTxuGyhC?=) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:17066 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:17066 --Multipart_Mon_Sep_14_15:20:40_1998-1 Content-Type: text/plain; charset=US-ASCII Hi. Sorry for my poooor english. gnus-agent writes .overview and .agentview follows file-coding-system-alist. On Win32 environment , .overview and .agentview write in sjis-dos. Perhaps , gnus occurs error when reading .overview and .agentview. So, following patch may require on Multilingual environment. Thanks. --Multipart_Mon_Sep_14_15:20:40_1998-1 Content-Type: application/octet-stream; type=patch Content-Disposition: attachment; filename="gnus-agent.el.diff" Content-Transfer-Encoding: 7bit --- gnus-agent.el.orig Mon Sep 14 14:59:26 1998 +++ gnus-agent.el Mon Sep 14 15:06:08 1998 @@ -92,7 +92,7 @@ (defvar gnus-agent-spam-hashtb nil) (defvar gnus-agent-file-name nil) (defvar gnus-agent-send-mail-function nil) -(defvar gnus-agent-article-file-coding-system 'no-conversion) +(defvar gnus-agent-file-coding-system 'no-conversion) (defconst gnus-agent-scoreable-headers (list @@ -524,7 +524,7 @@ (let* ((gnus-command-method method) (file (gnus-agent-lib-file "active"))) (gnus-make-directory (file-name-directory file)) - (let ((coding-system-for-write gnus-agent-article-file-coding-system)) + (let ((coding-system-for-write gnus-agent-file-coding-system)) (write-region (point-min) (point-max) file nil 'silent)) (when (file-exists-p (gnus-agent-lib-file "groups")) (delete-file (gnus-agent-lib-file "groups")))))) @@ -533,9 +533,10 @@ (let* ((gnus-command-method method) (file (gnus-agent-lib-file "groups"))) (gnus-make-directory (file-name-directory file)) - (write-region (point-min) (point-max) file nil 'silent)) + (let ((coding-system-for-write gnus-agent-file-coding-system)) + (write-region (point-min) (point-max) file nil 'silent)) (when (file-exists-p (gnus-agent-lib-file "active")) - (delete-file (gnus-agent-lib-file "active")))) + (delete-file (gnus-agent-lib-file "active"))))) (defun gnus-agent-save-group-info (method group active) (when (gnus-agent-method-p method) @@ -604,8 +605,9 @@ (save-excursion (set-buffer gnus-agent-current-history) (gnus-make-directory (file-name-directory gnus-agent-file-name)) - (write-region (1+ (point-min)) (point-max) - gnus-agent-file-name nil 'silent))) + (let ((coding-system-for-write gnus-agent-file-coding-system)) + (write-region (1+ (point-min)) (point-max) + gnus-agent-file-name nil 'silent)))) (defun gnus-agent-close-history () (when (gnus-buffer-live-p gnus-agent-current-history) @@ -703,7 +705,7 @@ (setq id "No-Message-ID-in-article") (setq id (buffer-substring (match-beginning 1) (match-end 1)))) (let ((coding-system-for-write - gnus-agent-article-file-coding-system)) + gnus-agent-file-coding-system)) (write-region (point-min) (point-max) (concat dir (number-to-string (caar pos))) nil 'silent)) @@ -746,10 +748,12 @@ (save-excursion (while gnus-agent-buffer-alist (set-buffer (cdar gnus-agent-buffer-alist)) - (write-region (point-min) (point-max) - (gnus-agent-article-name ".overview" - (caar gnus-agent-buffer-alist)) - nil 'silent) + (let ((coding-system-for-write + gnus-agent-file-coding-system)) + (write-region (point-min) (point-max) + (gnus-agent-article-name ".overview" + (caar gnus-agent-buffer-alist)) + nil 'silent)) (pop gnus-agent-buffer-alist)) (while gnus-agent-group-alist (with-temp-file (caar gnus-agent-group-alist) @@ -780,7 +784,9 @@ (gnus-agent-braid-nov group articles file)) (gnus-make-directory (nnheader-translate-file-chars (file-name-directory file))) - (write-region (point-min) (point-max) file nil 'silent) + (let ((coding-system-for-write + gnus-agent-file-coding-system)) + (write-region (point-min) (point-max) file nil 'silent)) (gnus-agent-save-alist group articles nil) (gnus-agent-enter-history "last-header-fetched-for-session" @@ -1386,7 +1392,9 @@ ;; Schedule the history line for nuking. (push (cdr elem) histories))) (gnus-make-directory (file-name-directory nov-file)) - (write-region (point-min) (point-max) nov-file nil 'silent) + (let ((coding-system-for-write + gnus-agent-file-coding-system)) + (write-region (point-min) (point-max) nov-file nil 'silent)) ;; Delete the unwanted entries in the alist. (setq gnus-agent-article-alist (sort gnus-agent-article-alist 'car-less-than-car)) --Multipart_Mon_Sep_14_15:20:40_1998-1 Content-Type: text/plain; charset=US-ASCII -- Tatsuya Ichikawa # PGP Public Key : See X-Info header in this message. --Multipart_Mon_Sep_14_15:20:40_1998-1--