X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fnnmh.el;h=7bc52211a3c426f50aad2c1cab3357ff1c86365e;hp=4542443c94239247be50bf7f606e363ca39fdc37;hb=8b4ec91dbe121dff869c38366d31c93dab9b9e86;hpb=f6db07e52113cabea621d024b5863eac23df46ba

diff --git a/lisp/nnmh.el b/lisp/nnmh.el
index 4542443c9..7bc52211a 100644
--- a/lisp/nnmh.el
+++ b/lisp/nnmh.el
@@ -211,7 +211,6 @@ as unread by Gnus.")
   (setq dir (expand-file-name dir))
   ;; Recurse down all directories.
   (let ((dirs (and (file-readable-p dir)
-		   (> (nth 1 (file-attributes (file-chase-links dir))) 2)
 		   (nnheader-directory-files dir t nil t)))
 	rdir)
     ;; Recurse down directories.
@@ -289,8 +288,8 @@ as unread by Gnus.")
 (deffoo nnmh-close-group (group &optional server)
   t)
 
-(deffoo nnmh-request-move-article (article group server
-					   accept-form &optional last)
+(deffoo nnmh-request-move-article (article group server accept-form 
+					   &optional last move-is-internal)
   (let ((buf (get-buffer-create " *nnmh move*"))
 	result)
     (and
@@ -578,4 +577,5 @@ as unread by Gnus.")
 
 (provide 'nnmh)
 
+;;; arch-tag: 36c12a98-3bad-44b3-9953-628078ef0e04
 ;;; nnmh.el ends here