* gnus-msg.el (gnus-configure-posting-styles): Ignore nil

signatures.

* nnweb.el (nnweb-dejanews-create-mapping): Get the data.
(nnweb-dejanews-create-mapping): Do the properish date.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b97cef5..ce9e5e9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+1999-12-01 21:59:36  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-msg.el (gnus-configure-posting-styles): Ignore nil
+       signatures. 
+
+       * nnweb.el (nnweb-dejanews-create-mapping): Get the data.
+       (nnweb-dejanews-create-mapping): Do the properish date.
+
 1999-12-01 17:41:21  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * mail-source.el (mail-source-common-keyword-map): New variable.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 0af7f10..55fdbbf 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1198,11 +1198,13 @@ this is a reply."
                     ((eq 'signature (car result))
                      (set (make-local-variable 'message-signature) nil)
                      (set (make-local-variable 'message-signature-file) nil)
-                     `(lambda ()
-                        (save-excursion
-                          (let ((message-signature ,(cdr result)))
-                            (when message-signature
-                              (message-insert-signature))))))
+                     (if (not (cdr result))
+                         'ignore
+                       `(lambda ()
+                          (save-excursion
+                            (let ((message-signature ,(cdr result)))
+                              (when message-signature
+                                (message-insert-signature)))))))
                     (t
                      (let ((header
                             (if (symbolp (car result))

diff --git a/lisp/nnweb.el b/lisp/nnweb.el
index 9d855f9..3f19c6e 100644 (file)
--- a/lisp/nnweb.el
+++ b/lisp/nnweb.el
@@ -368,14 +368,14 @@ and `altavista'.")
          (dolist (row (nth 2 (car (nth 2 table))))
            (setq a (nnweb-parse-find 'a row)
                  url (cdr (assq 'href (nth 1 a)))
-                 text (nnweb-text row))
+                 text (nreverse (nnweb-text row)))
            (when a
-             (setq subject (nth 2 text)
-                   group (nth 4 text)
-                   date (nth 5 text)
-                   from (nth 6 text))
+             (setq subject (nth 4 text)
+                   group (nth 2 text)
+                   date (nth 1 text)
+                   from (nth 0 text))
              (string-match "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)" date)
-             (setq date (format "%s %s %s"
+             (setq date (format "%s %s 00:00:00 %s"
                                 (car (rassq (string-to-number
                                              (match-string 2 date))
                                             parse-time-months))