From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/17146 Path: main.gmane.org!not-for-mail From: Tatsuya Ichikawa Newsgroups: gmane.emacs.gnus.general Subject: Invalid message-id header when unplugged. Date: 16 Sep 1998 13:20:37 +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_Wed_Sep_16_13:20:37_1998-1" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035155900 31858 80.91.224.250 (20 Oct 2002 23:18:20 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 23:18:20 +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 AAA25833 for ; Wed, 16 Sep 1998 00:23:01 -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 WAF01689; Tue, 15 Sep 1998 22:52:37 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 15 Sep 1998 23:20:00 -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 XAA05240 for ; Tue, 15 Sep 1998 23:19:45 -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 AAA25781 for ; Wed, 16 Sep 1998 00:19:16 -0400 (EDT) Original-Received: from epsongw.epson.co.jp by epsongw6.epson.co.jp (8.8.8+2.7Wbeta7/3.6W-98061119) id NAA06042; Wed, 16 Sep 1998 13:19:01 +0900 (JST) Original-Received: from hv.epson.co.jp by epsongw.epson.co.jp (8.8.8+2.7Wbeta7/3.6W98091214) id NAA24623 for ; Wed, 16 Sep 1998 13:19:01 +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 EAA19921 for ; Wed, 16 Sep 1998 04:18:23 GMT Original-To: Gnus ML X-MimeOLE: Produced By FLAM-DOODLE 1.9.4 - =?ISO-2022-JP?B?IhskQjNBGyhC?= 10R6.5/10.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 iQBVAwUBNf88mHiR0oMKLWWZAQGyKQH/bPbTaeQurH/J889azH3LloLFWvErmqsb FAC0cqvcLISitAW9YN5M03HLuDTnbcAc+j5v752ytTXvbYVL5QaQmQ== =PciE 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: 238 User-Agent: T-gnus/6.10.020 (based on Pterodactyl Gnus 0.31) WEMI/1.8.5 (Higashi-Tagonoura) FLAM-DOODLE/1.9.4 (=?ISO-2022-JP?B?GyRCM0EbKEI=?= 10R6.5/10.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:17146 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:17146 --Multipart_Wed_Sep_16_13:20:37_1998-1 Content-Type: text/plain; charset=US-ASCII When gnus is unplugged status , nnmail-check-syntax insert Message-ID header like this. Message-ID: <86emtfltdv.fsf@totally-fudged-out-message-id> ;; Message-ID is not member of message-required-news-headers. ;; In this case , I want to add Message-ID header by ISP news server. In plugged status gnus-agent-send-drafts typing "JS" in group buffer, Message-ID header is still above line. Is that right ?? So , I make following patch. Please apply in pGnus-0.32. Thanks. --Multipart_Wed_Sep_16_13:20:37_1998-1 Content-Type: application/octet-stream; type=patch Content-Disposition: attachment; filename="gnus.diff" Content-Transfer-Encoding: 7bit *** ChangeLog.orig Wed Sep 16 13:17:14 1998 --- ChangeLog Wed Sep 16 13:17:46 1998 *************** *** 1,3 **** --- 1,17 ---- + 1998-09-16 Tatsuya Ichikawa + + * nnmh.el (nnmh-request-accept-article): Do not add message-id + when posting queue. + + * gnus-agent.el (gnus-agent-file-coding-system): Renamed from + gnus-agent-article-file-coding-system and save in no-conversion. + (gnus-agent-save-group): Ditto. + (gnus-agent-save-history): Ditto. + (gnus-agent-fetch-articles): Ditto. + (gnus-agent-flush-cache): Ditto. + (gnus-agent-fetch-headers): Ditto. + (gnus-agent-expire): Ditto. + Mon Sep 14 18:55:38 1998 Lars Magne Ingebrigtsen * gnus.el: Pterodactyl Gnus v0.31 is released. *** gnus-agent.el.orig Wed Sep 16 13:10:22 1998 --- gnus-agent.el Wed Sep 16 13:10:30 1998 *************** *** 92,98 **** (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) (defconst gnus-agent-scoreable-headers (list --- 92,98 ---- (defvar gnus-agent-spam-hashtb nil) (defvar gnus-agent-file-name nil) (defvar gnus-agent-send-mail-function nil) ! (defvar gnus-agent-file-coding-system 'no-conversion) (defconst gnus-agent-scoreable-headers (list *************** *** 524,530 **** (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)) (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")))))) --- 524,530 ---- (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-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,541 **** (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)) (when (file-exists-p (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) --- 533,542 ---- (let* ((gnus-command-method method) (file (gnus-agent-lib-file "groups"))) (gnus-make-directory (file-name-directory file)) ! (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"))))) (defun gnus-agent-save-group-info (method group active) (when (gnus-agent-method-p method) *************** *** 604,611 **** (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))) (defun gnus-agent-close-history () (when (gnus-buffer-live-p gnus-agent-current-history) --- 605,613 ---- (save-excursion (set-buffer gnus-agent-current-history) (gnus-make-directory (file-name-directory gnus-agent-file-name)) ! (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,709 **** (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)) (write-region (point-min) (point-max) (concat dir (number-to-string (caar pos))) nil 'silent)) --- 705,711 ---- (setq id "No-Message-ID-in-article") (setq id (buffer-substring (match-beginning 1) (match-end 1)))) (let ((coding-system-for-write ! gnus-agent-file-coding-system)) (write-region (point-min) (point-max) (concat dir (number-to-string (caar pos))) nil 'silent)) *************** *** 746,755 **** (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) (pop gnus-agent-buffer-alist)) (while gnus-agent-group-alist (with-temp-file (caar gnus-agent-group-alist) --- 748,759 ---- (save-excursion (while gnus-agent-buffer-alist (set-buffer (cdar gnus-agent-buffer-alist)) ! (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,786 **** (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) (gnus-agent-save-alist group articles nil) (gnus-agent-enter-history "last-header-fetched-for-session" --- 784,792 ---- (gnus-agent-braid-nov group articles file)) (gnus-make-directory (nnheader-translate-file-chars (file-name-directory file))) ! (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,1392 **** ;; 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) ;; Delete the unwanted entries in the alist. (setq gnus-agent-article-alist (sort gnus-agent-article-alist 'car-less-than-car)) --- 1392,1400 ---- ;; Schedule the history line for nuking. (push (cdr elem) histories))) (gnus-make-directory (file-name-directory nov-file)) ! (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)) *** nnmh.el.orig Wed Sep 16 13:06:14 1998 --- nnmh.el Wed Sep 16 13:19:32 1998 *************** *** 294,300 **** (deffoo nnmh-request-accept-article (group &optional server last noinsert) (nnmh-possibly-change-directory group server) ! (nnmail-check-syntax) (when nnmail-cache-accepted-message-ids (nnmail-cache-insert (nnmail-fetch-field "message-id"))) (nnheader-init-server-buffer) --- 294,301 ---- (deffoo nnmh-request-accept-article (group &optional server last noinsert) (nnmh-possibly-change-directory group server) ! (if (not (string-equal group "queue")) ! (nnmail-check-syntax)) (when nnmail-cache-accepted-message-ids (nnmail-cache-insert (nnmail-fetch-field "message-id"))) (nnheader-init-server-buffer) --Multipart_Wed_Sep_16_13:20:37_1998-1 Content-Type: text/plain; charset=US-ASCII -- Tatsuya Ichikawa # PGP Public Key : See X-Info header in this message. --Multipart_Wed_Sep_16_13:20:37_1998-1--