2002-12-31 Reiner Steib <4uce.02.r.steib@gmx.net>

	* gnus-sum.el (gnus-summary-limit-to-age): Make prompt string
	mention negatives.

2002-12-31  Raymond Scholz  <ray-2002@zonix.de>

	* deuglify.el (gnus-outlook-rearrange-article): Use
	`transpose-regions' instead of tempering the kill-ring.
	(gnus-article-outlook-deuglify-article): Rehighlight article
	instead of a complete redisplay.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8cefa7d..60004a5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2002-12-31  Reiner Steib  <4uce.02.r.steib@gmx.net>
+
+       * gnus-sum.el (gnus-summary-limit-to-age): Make prompt string
+       mention negatives.
+
+2002-12-31  Raymond Scholz  <ray-2002@zonix.de>
+
+       * deuglify.el (gnus-outlook-rearrange-article): Use
+       `transpose-regions' instead of tempering the kill-ring.
+       (gnus-article-outlook-deuglify-article): Rehighlight article
+       instead of a complete redisplay.
+
 2002-12-31  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * spam.el: most defvars are defcustoms now

diff --git a/lisp/deuglify.el b/lisp/deuglify.el
index 643a4f3..ca0e7c2 100644 (file)
--- a/lisp/deuglify.el
+++ b/lisp/deuglify.el
@@ -280,7 +280,6 @@
 
 ;; Functions
 
-;; TODO: don't kill MIME parts
 ;;;###autoload
 (defun gnus-outlook-unwrap-lines ()
   "Unwrap lines that appear to be wrapped citation lines.
@@ -311,19 +310,18 @@ length of an unwrapped citation line."
                  (replace-match "\\1\\2 \\3")
                  (goto-char (match-beginning 0))))))))))
 
-;; TODO: respect signatures, don't kill MIME parts
 (defun gnus-outlook-rearrange-article (from-where)
-  "Put the text from `from-where' to the end of buffer at the top of the article buffer."
+  "Put the text from `from-where' to the end of buffer at the top of
+the article buffer."
   (save-excursion
     (let ((inhibit-read-only t)
          (cite-marks gnus-outlook-deuglify-cite-marks))
       (gnus-with-article-buffer
-       (unless (search-forward-regexp
-                  (concat "^[ \t]*[^" cite-marks "\n]") nil t)
-         (kill-region from-where (point-max))
-         (article-goto-body)
-         (yank)
-         (insert "\n"))))))
+       (beginning-of-buffer)
+       (re-search-forward "^$")
+       (transpose-regions (point) (- from-where 1)
+                          from-where (point-max) t)))))
+
 
 ;; John Doe <john.doe@some.domain> wrote in message
 ;; news:a87usw8$dklsssa$2@some.news.server...
@@ -425,7 +423,7 @@ length of an unwrapped citation line."
   (interactive)
   (gnus-outlook-deuglify-article)
   (with-current-buffer (or gnus-article-buffer (current-buffer))
-    (gnus-article-prepare-display)))
+    (gnus-article-highlight t)))
 
 (provide 'deuglify)
 

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 3443e93..6dfd5fe 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2281,7 +2281,7 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs))))
         ["Unread" gnus-summary-limit-to-unread t]
         ["Unseen" gnus-summary-limit-to-unseen t]
         ["Non-dormant" gnus-summary-limit-exclude-dormant t]
-        ["Articles" gnus-summary-limit-to-articles t]
+        ["Next articles" gnus-summary-limit-to-articles t]
         ["Pop limit" gnus-summary-pop-limit t]
         ["Show dormant" gnus-summary-limit-include-dormant t]
         ["Hide childless dormant"
@@ -7307,8 +7307,9 @@ articles that are younger than AGE days."
         days)
      (while (not days-got)
        (setq days (if younger
-                     (read-string "Limit to articles within (in days): ")
-                   (read-string "Limit to articles older than (in days): ")))
+                     (read-string "Limit to articles younger than (in days, older when negative): ")
+                   (read-string
+                    "Limit to articles older than (in days, younger when negative): ")))
        (when (> (length days) 0)
         (setq days (read days)))
        (if (numberp days)

diff --git a/lisp/nnoo.el b/lisp/nnoo.el
index 028af25..bb7704f 100644 (file)
--- a/lisp/nnoo.el
+++ b/lisp/nnoo.el
@@ -254,7 +254,7 @@
        (setcdr bstate (delq defs (cdr bstate)))
        (pop defs)
        (while defs
-         (set (car (pop defs)) nil)))))
+         (set (car (pop defs)) nil))))) 
   t)
 
 (defun nnoo-close (backend)