From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/15159 Path: main.gmane.org!not-for-mail From: Fabrice POPINEAU Newsgroups: gmane.emacs.gnus.general Subject: gnus 5.6.9 under xemacs-nt Date: 07 May 1998 17:38:23 -0700 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035154241 20520 80.91.224.250 (20 Oct 2002 22:50:41 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:50:41 +0000 (UTC) Cc: xemacs-nt@xemacs.org Return-Path: Original-Received: from gwyn.tux.org (gwyn.tux.org [207.96.122.8]) by altair.xemacs.org (8.8.8/8.8.8) with ESMTP id JAA13664 for ; Thu, 7 May 1998 09:01:57 -0700 Original-Received: from sina.hpc.uh.edu (root@Sina.HPC.UH.EDU [129.7.3.5]) by gwyn.tux.org (8.8.8/8.8.8) with ESMTP id LAA01085 for ; Thu, 7 May 1998 11:41:47 -0400 Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id KAH13969; Thu, 7 May 1998 10:41:05 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 07 May 1998 10:39:27 -0500 (CDT) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by sina.hpc.uh.edu (8.7.3/8.7.3) with SMTP id KAA13943 for ; Thu, 7 May 1998 10:39:18 -0500 (CDT) Original-Received: (qmail 157 invoked by uid 504); 7 May 1998 15:38:59 -0000 Original-Received: (qmail 154 invoked from network); 7 May 1998 15:38:56 -0000 Original-Received: from esemetz.ese-metz.fr (192.70.65.1) by claymore.vcinet.com with SMTP; 7 May 1998 15:38:49 -0000 Original-Received: from NEUROMANCER.ese-metz.fr (neuromancer.ese-metz.fr [193.48.224.95]) by esemetz.ese-metz.fr (8.8.8/8.8.8) with SMTP id RAA10908; Thu, 7 May 1998 17:38:24 +0200 (MET DST) Original-To: ding@gnus.org X-Mailer: Gnus v5.6.9/XEmacs 21.0(beta38) - "Repartida" Original-Lines: 89 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:15159 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:15159 OK, I've managed to get it connect, and somehow read my mail. The patch I have applied follows and is not very smart. I guess that more will probably follow. How does one read mime messages under xemacs ? It seems that semi is not very xemacs compliant (or is it my installation ?). -- Fabrice POPINEAU ------------------------ e-mail: popineau@ese-metz.fr | "God is real ... Fabrice.POPINEAU@supelec.fr | voice-mail: +33 (0) 387764715 | ... unless integer ?" surface-mail: Supelec, 2 rue E. Belin, | F-57078 Metz Cedex 3 | diff -ru -x orig lisp/gnus/gnus-cache.el ../gnus-cache.el --- lisp/gnus/gnus-cache.el Sun May 03 01:49:31 1998 +++ ../gnus-cache.el Thu May 07 17:32:31 1998 @@ -390,18 +390,19 @@ (and (not unread) (not ticked) (not dormant) (memq 'read class)))) (defun gnus-cache-file-name (group article) - (concat (file-name-as-directory gnus-cache-directory) - (file-name-as-directory - (nnheader-translate-file-chars - (if (gnus-use-long-file-name 'not-cache) - group - (let ((group (nnheader-replace-chars-in-string group ?/ ?_))) - ;; Translate the first colon into a slash. - (when (string-match ":" group) - (aset group (match-beginning 0) ?/)) - (nnheader-replace-chars-in-string group ?. ?/))) - t)) - (if (stringp article) article (int-to-string article)))) + (let ((group (gnus-group-real-name group))) + (concat (file-name-as-directory gnus-cache-directory) + (file-name-as-directory + (nnheader-translate-file-chars + (if (gnus-use-long-file-name 'not-cache) + group + (let ((group (nnheader-replace-chars-in-string group ?/ ?_))) + ;; Translate the first colon into a slash. + (when (string-match ":" group) + (aset group (match-beginning 0) ?/)) + (nnheader-replace-chars-in-string group ?. ?/))) + t)) + (if (stringp article) article (int-to-string article))))) (defun gnus-cache-update-article (group article) "If ARTICLE is in the cache, remove it and re-enter it." @@ -607,8 +608,8 @@ (if top "" (string-match - (concat "^" (file-name-as-directory - (expand-file-name gnus-cache-directory))) + (concat "^" (regexp-quote (file-name-as-directory + (expand-file-name gnus-cache-directory)))) (directory-file-name directory)) (nnheader-replace-chars-in-string (substring (directory-file-name directory) (match-end 0)) diff -ru -x orig lisp/gnus/gnus-score.el ../gnus-score.el --- lisp/gnus/gnus-score.el Sun May 03 01:49:31 1998 +++ ../gnus-score.el Thu May 07 17:32:29 1998 @@ -1075,8 +1075,8 @@ ;; Load score file FILE. Returns a list a retrieved score-alists. (let* ((file (expand-file-name (or (and (string-match - (concat "^" (expand-file-name - gnus-kill-files-directory)) + (concat "^" (regexp-quote (expand-file-name + gnus-kill-files-directory))) (expand-file-name file)) file) (concat (file-name-as-directory gnus-kill-files-directory) diff -ru -x orig lisp/gnus/nnmail.el ../nnmail.el --- lisp/gnus/nnmail.el Sun May 03 01:49:32 1998 +++ ../nnmail.el Thu May 07 15:14:19 1998 @@ -717,9 +717,9 @@ is a spool. If not using procmail, return GROUP." (if (or (eq nnmail-spool-file 'procmail) nnmail-use-procmail) - (if (string-match (concat "^" (expand-file-name + (if (string-match (concat "^" (regexp-quote (expand-file-name (file-name-as-directory - nnmail-procmail-directory)) + nnmail-procmail-directory))) "\\([^/]*\\)" nnmail-procmail-suffix "$") (expand-file-name file)) (let ((procmail-group (substring (expand-file-name file)