From 4d4e7c8dca83d37ee46f7aabe17775d9337fd677 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 19 Feb 2002 12:33:43 +0000 Subject: [PATCH] 2002-02-18 Lars Magne Ingebrigtsen * gnus-fun.el (gnus-respond-to-confirmation): New command. 2002-02-11 Lars Magne Ingebrigtsen * nnultimate.el (nnultimate-retrieve-headers): Clean up. --- lisp/ChangeLog | 8 ++++++++ lisp/gnus-fun.el | 16 ++++++++++++++++ lisp/nnultimate.el | 38 +++++++++++++++++++------------------- 3 files changed, 43 insertions(+), 19 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index af0233c40..ce0c1bd8a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2002-02-18 Lars Magne Ingebrigtsen + + * gnus-fun.el (gnus-respond-to-confirmation): New command. + +2002-02-11 Lars Magne Ingebrigtsen + + * nnultimate.el (nnultimate-retrieve-headers): Clean up. + 2002-02-18 Paul Jarc * gnus-util.el (gnus-parent-id): Ignore trailing whitespace in the diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el index 4105a81d6..766ef1ef9 100644 --- a/lisp/gnus-fun.el +++ b/lisp/gnus-fun.el @@ -239,6 +239,22 @@ colors of the displayed X-Faces." (gnus-convert-image-to-gray-x-face (concat file ".gif") 3) (delete-file (concat file ".gif")))) +(defun gnus-respond-to-confirmation () + "Respond to a Gmane confirmation message." + (interactive) + (gnus-summary-show-article 'raw) + (set-buffer gnus-article-buffer) + (let ((buffer-read-only nil)) + (goto-char (point-min)) + (gnus-article-goto-header "Original-To") + (replace-match "To:")) + (message-wide-reply) + (goto-char (point-min)) + (gnus-article-goto-header "Cc") + (replace-match "From:") + (message-goto-body) + (delete-region (point) (point-max))) + (provide 'gnus-fun) ;;; gnus-fun.el ends here diff --git a/lisp/nnultimate.el b/lisp/nnultimate.el index a71425de6..bab703b49 100644 --- a/lisp/nnultimate.el +++ b/lisp/nnultimate.el @@ -172,25 +172,25 @@ datel nil)) (pop datel)) (when date - (setq date (delete "" (split-string - date "[-, \n\t\r    ]"))) - (if (or (member "AM" date) - (member "PM" date)) - (setq date (format - "%s %s %s %s" - (nth 1 date) - (if (and (>= (length (nth 0 date)) 3) - (assoc (downcase - (substring (nth 0 date) 0 3)) - parse-time-months)) - (substring (nth 0 date) 0 3) - (car (rassq (string-to-number (nth 0 date)) - parse-time-months))) - (nth 2 date) (nth 3 date))) - (setq date (format "%s %s %s %s" - (car (rassq (string-to-number (nth 1 date)) - parse-time-months)) - (nth 0 date) (nth 2 date) (nth 3 date))))) + (setq date (delete "" (split-string date "[-, \n\t\r    ]"))) + (setq date + (if (or (member "AM" date) + (member "PM" date)) + (format + "%s %s %s %s" + (nth 1 date) + (if (and (>= (length (nth 0 date)) 3) + (assoc (downcase + (substring (nth 0 date) 0 3)) + parse-time-months)) + (substring (nth 0 date) 0 3) + (car (rassq (string-to-number (nth 0 date)) + parse-time-months))) + (nth 2 date) (nth 3 date)) + (format "%s %s %s %s" + (car (rassq (string-to-number (nth 1 date)) + parse-time-months)) + (nth 0 date) (nth 2 date) (nth 3 date))))) (push (cons article -- 2.25.1