Re: {gnus|nnmail}-use-long-filename[s] beahviour changed

[Linus Nordberg <linus@swox.se>]

Lars Magne Ingebrigtsen <larsi@gnus.org> wrote
21 Apr 2000 14:49:43 +0200:

   Linus Nordberg <linus@swox.se> writes:
   
   > i have both `gnus-use-long-file-name' and `nnmail-use-long-file-names'
   > set to nil, which prior to pgnus-0.99 made groups like "foo/bar" end
   > up in directory "foo/bar".  from pgnus-0.99 and on, "foo/bar" becomes
   > "foo_bar".
   
   What path names are affected in this manner?
   
I can't reproduce it with gnus-5.8.6 and an empty ~/.newsrc.eld, but
with my current ~/.newsrc.eld, articles for foo/bar ends up in the
directory ~/Mail/foo_bar.  This happens both when I move the article
manually using gnus-summary-move-article and when I let GNUS split
incoming articles.

It gets an article number that would fit nicely in ~/Mail/foo/bar, so
someone has obviously found its way there, but later decided to put
the article in the wrong directory.

nnmail-group-pathname has changed like this between pgnus-0.97 and
gnus-5.8.6:

*** 463,496 ****
    "Make pathname for GROUP."
    (concat
     (let ((dir (file-name-as-directory (expand-file-name dir))))
       (setq group (nnheader-translate-file-chars group))
       ;; If this directory exists, we use it directly.
!      (if (or nnmail-use-long-file-names
!            (file-directory-p (concat dir group)))
!        (concat dir group "/")
!        ;; If not, we translate dots into slashes.
!        (concat dir
!              (mm-encode-coding-string
!               (nnheader-replace-chars-in-string group ?. ?/)
!               nnmail-pathname-coding-system)
!              "/")))
     (or file "")))
--- 471,525 ----
    "Make pathname for GROUP."
    (concat
     (let ((dir (file-name-as-directory (expand-file-name dir))))
+      (setq group (nnheader-replace-duplicate-chars-in-string
+                 (nnheader-replace-chars-in-string group ?/ ?_)
+                 ?. ?_))
       (setq group (nnheader-translate-file-chars group))
       ;; If this directory exists, we use it directly.
!      (file-name-as-directory
!       (if (or nnmail-use-long-file-names
!             (file-directory-p (concat dir group)))
!         (expand-file-name group dir)
!       ;; If not, we translate dots into slashes.
!       (expand-file-name
!        (mm-encode-coding-string
!         (nnheader-replace-chars-in-string group ?. ?/)
!         nnmail-pathname-coding-system)
!        dir))))
     (or file "")))


Those three added lines, replacing `/' with `_' looks suspicious from
my point of view (though my lisp knowledge is poor, to say the least).

Or, maybe my ~/.newsrc.eld is corrupted in some subtle way?  Is there
a way to ``clean it up''?

--linus