[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-util.el
diff -c emacs/lisp/gnus/gnus-util.el:1.23 emacs/lisp/gnus/gnus-util.el:1.24
*** emacs/lisp/gnus/gnus-util.el:1.23   Tue Dec  7 21:56:39 2004
--- emacs/lisp/gnus/gnus-util.el        Sun Dec 26 23:33:51 2004
***************
*** 708,713 ****
--- 708,730 ----
    (when (file-exists-p file)
      (delete-file file)))
  
+ (defun gnus-delete-directory (directory)
+   "Delete files in DIRECTORY.  Subdirectories remain.
+ If there's no subdirectory, delete DIRECTORY as well."
+   (when (file-directory-p directory)
+     (let ((files (directory-files
+                 directory t "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*"))
+         file dir)
+       (while files
+       (setq file (pop files))
+       (if (eq t (car (file-attributes file)))
+           ;; `file' is a subdirectory.
+           (setq dir t)
+         ;; `file' is a file or a symlink.
+         (delete-file file)))
+       (unless dir
+       (delete-directory directory)))))
+ 
  (defun gnus-strip-whitespace (string)
    "Return STRING stripped of all whitespace."
    (while (string-match "[\r\n\t ]+" string)