* ecomplete.el (ecomplete-add-item): Chop off decimals.

* gnus-sum.el (gnus-summary-save-parts): Bind
gnus-summary-save-parts-counter and use it to make unique file
names.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 63d735b..d23c69b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2006-04-12  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * ecomplete.el (ecomplete-add-item): Chop off decimals.
+
+       * gnus-sum.el (gnus-summary-save-parts): Bind
+       gnus-summary-save-parts-counter and use it to make unique file
+       names.
+
        * gnus-art.el (gnus-ignored-headers): Add some more headers.
 
        * ietf-drums.el (ietf-drums-parse-addresses): Take a RAWP

diff --git a/lisp/ecomplete.el b/lisp/ecomplete.el
index f9ed931..f6d5b4f 100644 (file)
--- a/lisp/ecomplete.el
+++ b/lisp/ecomplete.el
@@ -57,7 +57,8 @@
 
 (defun ecomplete-add-item (type key text)
   (let ((elems (assq type ecomplete-database))
-       (now (time-to-seconds (current-time)))
+       (now (string-to-number
+             (format "%.0f" (time-to-seconds (current-time)))))
        entry)
     (unless elems
       (push (setq elems (list type)) ecomplete-database))

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 085a4bc..6d0265c 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -11403,6 +11403,8 @@ save those articles instead."
          (error "No such group: %s" to-newsgroup)))
     to-newsgroup))
 
+(defvar gnus-summary-save-parts-counter)
+
 (defun gnus-summary-save-parts (type dir n &optional reverse)
   "Save parts matching TYPE to DIR.
 If REVERSE, save parts that do not match TYPE."
@@ -11425,7 +11427,8 @@ If REVERSE, save parts that do not match TYPE."
       (let ((handles (or gnus-article-mime-handles
                         (mm-dissect-buffer nil gnus-article-loose-mime)
                         (and gnus-article-emulate-mime
-                             (mm-uu-dissect)))))
+                             (mm-uu-dissect))))
+           (gnus-summary-save-parts-counter 1))
        (when handles
          (gnus-summary-save-parts-1 type dir handles reverse)
          (unless gnus-article-mime-handles ;; Don't destroy this case.
@@ -11447,10 +11450,11 @@ If REVERSE, save parts that do not match TYPE."
                       (mm-handle-disposition handle) 'filename)
                      (mail-content-type-get
                       (mm-handle-type handle) 'name)
-                     (concat gnus-newsgroup-name
-                             "." (number-to-string
-                                  (cdr gnus-article-current))))))
+                     (format "%s.%d.%d" gnus-newsgroup-name
+                             (cdr gnus-article-current)
+                             gnus-summary-save-parts-counter))))
                   dir)))
+       (incf gnus-summary-save-parts-counter)
        (unless (file-exists-p file)
          (mm-save-part-to-file handle file))))))