*** empty log message ***

[gnus] / lisp / nnmh.el

diff --git a/lisp/nnmh.el b/lisp/nnmh.el
index 1229925..a801778 100644 (file)
--- a/lisp/nnmh.el
+++ b/lisp/nnmh.el
@@ -227,8 +227,9 @@
             (format 
              "%s %d %d y\n" 
              (progn
-               (string-match (file-name-as-directory 
-                              (expand-file-name nnmh-directory)) dir)
+               (string-match 
+                (file-truename (file-name-as-directory 
+                                (expand-file-name nnmh-directory))) dir)
                (nnmail-replace-chars-in-string
                 (substring dir (match-end 0)) ?/ ?.))
              (apply (function max) files)