From: Fabrice POPINEAU <popineau@esemetz.ese-metz.fr>
Cc: xemacs-nt@xemacs.org
Subject: gnus 5.6.9 under xemacs-nt
Date: 07 May 1998 17:38:23 -0700 [thread overview]
Message-ID: <u4sz17g1s.fsf@ese-metz.fr> (raw)
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)
next reply other threads:[~1998-05-08 0:38 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
1998-05-08 0:38 Fabrice POPINEAU [this message]
1998-05-07 15:53 ` Hrvoje Niksic
1998-05-07 17:44 ` Harry Putnam
1998-05-07 17:57 ` Hrvoje Niksic
1998-05-08 13:00 ` Simon Josefsson
1998-06-01 3:16 ` Lars Magne Ingebrigtsen
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=u4sz17g1s.fsf@ese-metz.fr \
--to=popineau@esemetz.ese-metz.fr \
--cc=xemacs-nt@xemacs.org \
/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).