From: Lars Ingebrigtsen Date: Mon, 20 Feb 2012 07:20:52 +0000 (+0100) Subject: Merge remote-tracking branch 'origin/no-gnus' X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=a10e061d0e6d4792608c61659d34a0c770c1129b;hp=-c Merge remote-tracking branch 'origin/no-gnus' --- a10e061d0e6d4792608c61659d34a0c770c1129b diff --combined lisp/ChangeLog index c708c7fbb,d631b8b07..69fd5aedc --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@@ -1,8 -1,13 +1,18 @@@ +2012-02-19 Vida Gábor (tiny change) + + * gnus-demon.el (gnus-demon-init): Don't multiply time twice. + Reported by Peter Münster. + + 2012-02-20 Lars Ingebrigtsen + + * nnimap.el (nnimap-log-command): Add the IMAP address to the log + buffer. Suggested by Herbert Valerio Riedel. + + 2012-02-19 Vida Gábor (tiny change) + + * gnus-demon.el (gnus-demon-init): Don't multiply time twice. + Reported by Peter Münster. + 2012-02-18 Lars Ingebrigtsen * shr.el (shr-image-fetched): Make sure we really kill the right @@@ -12,89 -17,16 +22,89 @@@ * gnus-start.el (gnus-1): Avoid duplicate entries. - 2012-02-16 Lars Ingebrigtsen - - * mm-decode.el (mm-dissect-singlepart): Guess what the type of - application/octet-stream parts really is. - - * gnus-sum.el (gnus-propagate-marks): Remove. - 2012-02-15 Lars Ingebrigtsen - * shr.el (shr-remove-trailing-whitespace): Really delete the padding on - too-wide lines. + * imap.el: Remove. + + * nntp.el (nntp-coding-system-for-read): Remove. + (nntp-coding-system-for-write): Ditto. + (nntp-open-connection): Just use `binary' directly. + + * gnus-start.el (gnus-clean-old-newsrc): Delete `unexist' from pre-Ma + Gnus 0.3. + ++2012-02-16 Lars Ingebrigtsen ++ ++ * mm-decode.el (mm-dissect-singlepart): Guess what the type of ++ application/octet-stream parts really is. ++ ++ * gnus-sum.el (gnus-propagate-marks): Remove. + 2012-02-15 Paul Eggert * shr.el (shr-rescale-image): Undo previous change; see . +2012-02-15 Lars Magne Ingebrigtsen + + * gnus.el: Ma Gnus v0.3 is released. + +2012-02-15 Lars Ingebrigtsen + + * gnus-sum.el (gnus-summary-local-variables): Make + `gnus-newsgroup-unexist' into a local variable. + +2012-02-14 Teodor Zlatanov + + * registry.el (registry-usage-test, registry-persistence-test): Move to + tests/gnustest-registry.el. + (registry-make-testable-db, registry-match-test) + (registry-instantiation-test): Move to tests/gnustest-registry.el. + + * gnus-registry.el (gnus-registry-misc-test) + (gnus-registry-usage-test): Move to tests/gnustest-registry.el. + + * tests/gnustest-registry.el: New file with the registry and + gnus-registry ERT tests. + +2012-02-13 Katsumi Yamaoka + + * gnus-msg.el (gnus-summary-resend-message): Make + gnus-summary-resend-message-insert-gcc be last item in + message-header-setup-hook. + +2012-02-13 Lars Ingebrigtsen + + * nnfolder.el (nnfolder-marks-directory, nnfolder-marks-is-evil) + (nnfolder-marks, nnfolder-marks-file-suffix, nnfolder-marks-modtime): + Remove. + (nnfolder-open-server): Don't use marks. + (nnfolder-request-delete-group): Ditto. + (nnfolder-request-rename-group): Ditto. + (nnfolder-request-set-mark, nnfolder-request-marks) + (nnfolder-group-marks-pathname, nnfolder-marks-changed-p) + (nnfolder-save-marks, nnfolder-open-marks): Remove. + + * nnml.el (nnml-marks-is-evil, nnml-marks-file-name, nnml-marks) + (nnml-marks-modtime): Remove. + (nnml-request-delete-group): Don't use marks. + (nnml-request-rename-group): Ditto. + (nnml-request-set-mark, nnml-request-marks, nnml-marks-changed-p) + (nnml-save-marks, nnml-open-marks): Remove. + + * nntp.el (nntp-marks-is-evil, nntp-marks-file-name, nntp-marks) + (nntp-marks-modtime, nntp-marks-directory, nntp-request-set-mark) + (nntp-request-marks, nntp-marks-directory, nntp-marks-changed-p) + (nntp-save-marks, nntp-open-marks, nntp-possibly-create-directory) + (nntp-server-to-method-cache): Remove. + + * shr.el (shr-rescale-image): Fix wrong merge. + +2012-02-15 Lars Ingebrigtsen + + * shr.el (shr-remove-trailing-whitespace): Really delete the padding on + too-wide lines. + 2012-02-13 Lars Ingebrigtsen * nnimap.el (nnimap-record-commands): New variable. @@@ -138,24 -70,6 +148,24 @@@ * auth-source.el (auth-source-cache-expiry): Add missing :version tags to new defcustoms and defgroups. +2012-02-11 Lars Ingebrigtsen + + * gnus-sum.el (gnus-adjust-marked-articles): Add to + `gnus-newsgroup-unexist'. + + * gnus.el (gnus-article-mark-lists): Add `unexist' to the list of + marks. + (gnus-article-special-mark-lists): Put the `unexist' in the special + marks list instead. + + * gnus-sum.el (gnus-articles-to-read): Don't include unexisting + articles in the list of articles to be selected. + + * nnimap.el (nnimap-retrieve-group-data-early): Query for unexisting + articles. + (nnimap-update-info): Keep track of unexisting articles. + (nnimap-update-qresync-info): Ditto. + 2012-02-10 Lars Ingebrigtsen * message.el (message-default-send-mail-function): Made into own @@@ -166,45 -80,6 +176,45 @@@ * gnus.el (gnus-method-ephemeral-p): Move after declaration of defsubst `gnus-sloppily-equal-method-parameters' to avoid a warning. +2012-02-09 Lars Ingebrigtsen + + * mm-archive.el (mm-archive-dissect-and-inline): New function. + (mm-archive-dissect-and-inline): Fix up the undisplayer. + + * gnus-compat.el: Define `timer-set-function'. + + * mm-decode.el (mm-display-external): Output the text from the command + in the buffer after the command finished. This makes text-based + commands behave better. + +2012-02-08 Lars Ingebrigtsen + + * gnus-compat.el: Add a compat for the old `url-retrieve'. + +2012-02-07 Lars Ingebrigtsen + + * gnus-compat.el: Make `help-function-arglist' be compatible on Emacs + 23.1. + +2012-02-07 Katsumi Yamaoka + + * gnus-sum.el (gnus-summary-show-thread): Revert last two changes. + +2012-02-07 Lars Ingebrigtsen + + * message.el (smtpmail-smtp-user): Silence compiler warning. + +2012-02-06 Lars Ingebrigtsen + + * message.el (message-multi-smtp-send-mail): Also allow specifying the + SMTP user name. + +2012-02-06 Katsumi Yamaoka + + * gnus-sum.el (gnus-summary-show-thread): + next-single-char-property-change may return nil in XEmacs. + (gnus-summary-article-map): Fix typo. + 2012-02-09 Lars Ingebrigtsen * gnus-msg.el (gnus-msg-mail): Use `message-mail' if Gnus isn't @@@ -232,6 -107,10 +242,6 @@@ lines that are narrower than the window width. Otherwise background "blocks" will look less readable. -2012-02-07 Katsumi Yamaoka - - * gnus-sum.el (gnus-summary-show-thread): Revert last two changes. - 2012-02-07 Lars Ingebrigtsen * nnimap.el (nnimap-transform-headers): Remove unused variable. @@@ -253,6 -132,11 +263,6 @@@ * gnus-sum.el (gnus-summary-exit-no-update): Really deaden the summary buffer if `gnus-kill-summary-on-exit' is nil. -2012-02-06 Katsumi Yamaoka - - * gnus-sum.el (gnus-summary-show-thread): - next-single-char-property-change may return nil in XEmacs. - 2012-02-06 Lars Ingebrigtsen * gnus-sum.el (gnus-handle-ephemeral-exit): Allow exiting from Gnus @@@ -263,98 -147,6 +273,98 @@@ * gnus-sum.el (gnus-summary-show-thread): next-single-char-property-change never returns nil (Bug#8657). +2012-02-02 Lars Ingebrigtsen + + * message.el (message-multi-smtp-send-mail): New function. + (message-multi-smtp-send-mail): Respect the X-Message-SMTP-Method + header to implement multi-SMTP functionality. + + * gnus-agent.el (gnus-agent-send-mail-function): Removed. + (gnus-agentize): Don't set it. + (gnus-agent-send-mail): Don't use it. + + * gnus-sum.el (gnus-summary-widget-backward): New function and + keystroke. + + * gnus-compat.el: More the compat functions more compatible. + + * shr.el (shr-put-image): Remove underlines from sliced images. + (shr-zoom-image): Compute the region to be replaced more correctly. + +2012-02-02 Katsumi Yamaoka + + * gnus-msg.el (gnus-gcc-self-resent-messages): New user option. + (gnus-summary-resend-message-insert-gcc): New function. + (gnus-summary-resend-message): Modify message-header-setup-hook and + message-sent-hook to make it work for Gcc. + (gnus-inews-do-gcc): Update the number of unread articles of groups + that messages are Gcc'd to. + + * message.el (message-resend): Run message-sent-hook to do Gcc. + +2012-02-01 Lars Ingebrigtsen + + * lpath.el: Fix an XEmacs compilation warning. + + * gnus-compat.el: Require `help-fns' to fix compilation error. + + * gnus-registry.el (gnus-registry-fixup-registry): Move the message to + a higher level to silence compilation. + + * gnus-art.el (gnus-shr-put-image): Take and pass on a `flags' + parameter to allow controlling the scaling. + + * shr.el (shr-zoom-image): New command and keystroke. + (shr-put-image): Take a `size' flag to say how to scale the image. + + * gnus-compat.el: Redefine `delete-directory' to provide recursive + deletion unless already defined. + + * gnus.el (gnus-compat): Require it. + + * gnus-compat.el: New file. + + * gnus-start.el (gnus-clean-old-newsrc): New function. + (gnus-read-newsrc-file): Use it. + + * mm-archive.el (mm-dissect-archive): Use it to get all file names. + Use recursive deletion. + (mm-dissect-archive): Add support for zip files. + + * gnus-util.el (gnus-recursive-directory-files): New function. + + * mm-archive.el (mm-archive-list-files): Inline text and image parts. + (mm-archive-decoders): Add tgz support. + + * mm-decode.el (mm-shr): Make sure that the HTML ends with a newline. + Otherwise inserting text into the Gnus buffer can look odd. + + * gnus-art.el (gnus-mime-inline-part): Slight clean-up. + + * mm-archive.el (mm-archive-decoders): Add support for tar. + + * gnus.el (gnus-logo-color-alist): Change the colours for Ma Gnus. + + * nnmail.el (nnmail-extra-headers): Add Cc to the default. + +2012-01-31 Lars Ingebrigtsen + + * mm-decode.el (mm-dissect-singlepart): Check that the decoder exists. + + * mm-archive.el: New file. + + * mm-decode.el (mm-dissect-singlepart): Use it to decode ms-tnef files. + + * mm-util.el (mm-find-buffer-file-coding-system): Comment fix. + + * message.el (message-goto-*): Make all the `message-goto-*' commands + push the mark before moving point. This makes it easier to go back to + where you came from after editing whatever you jumped to. + +2012-01-31 Lars Magne Ingebrigtsen + + * gnus.el: Ma Gnus v0.1 is released. + 2012-02-05 Lars Ingebrigtsen * nnimap.el (nnimap-open-server): Allow switching the nnoo server @@@ -394,11 -186,11 +404,11 @@@ 2012-01-31 Jim Meyering * gnus-agent.el (gnus-agent-expire-unagentized-dirs): - Correct a comment (insert "not") and hide nominally-doubled "to". + Correct a comment (insert "not") and hide nominally-doubled "to". -2012-01-31 Lars Magne Ingebrigtsen +2012-01-31 Lars Ingebrigtsen - * gnus.el: No Gnus v0.19 is released. + * gnus.el (gnus-version): Change name to "Ma Gnus". 2012-01-30 Philipp Haselwarter (tiny change) diff --combined lisp/nnimap.el index a131c10b7,b02edf59b..eaf0f5ccf --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@@ -1233,8 -1233,7 +1233,8 @@@ textual parts." (setf (nnimap-group nnimap-object) nil) (setf (nnimap-initial-resync nnimap-object) 0) (let ((qresyncp (nnimap-capability "QRESYNC")) - params groups sequences active uidvalidity modseq group) + params groups sequences active uidvalidity modseq group + unexist) ;; Go through the infos and gather the data needed to know ;; what and how to request the data. (dolist (info infos) @@@ -1242,15 -1241,13 +1242,15 @@@ group (nnimap-decode-gnus-group (gnus-group-real-name (gnus-info-group info))) active (cdr (assq 'active params)) + unexist (assq 'unexist (gnus-info-marks info)) uidvalidity (cdr (assq 'uidvalidity params)) modseq (cdr (assq 'modseq params))) (setf (nnimap-examined nnimap-object) group) (if (and qresyncp uidvalidity active - modseq) + modseq + unexist) (push (list (nnimap-send-command "EXAMINE %S (%s (%s %s))" (utf7-encode group t) @@@ -1269,10 -1266,11 +1269,10 @@@ ;; is read-only or not. "SELECT")) start) - (if (and active uidvalidity) + (if (and active uidvalidity unexist) ;; Fetch the last 100 flags. (setq start (max 1 (- (cdr active) 100))) - (setf (nnimap-initial-resync nnimap-object) - (1+ (nnimap-initial-resync nnimap-object))) + (incf (nnimap-initial-resync nnimap-object)) (setq start 1)) (push (list (nnimap-send-command "%s %S" command (utf7-encode group t)) @@@ -1449,20 -1447,6 +1449,20 @@@ (setq new-marks (gnus-range-nconcat old-marks new-marks))) (when new-marks (push (cons (car type) new-marks) marks))))) + ;; Keep track of non-existing articles. + (let* ((old-unexists (assq 'unexist marks)) + (unexists + (if completep + (gnus-range-difference + (gnus-active group) + (gnus-compress-sequence existing)) + (gnus-add-to-range + (cdr old-unexists) + (gnus-list-range-difference + existing (gnus-active group)))))) + (if old-unexists + (setcdr old-unexists unexists) + (push (cons 'unexist unexists) marks))) (gnus-info-set-marks info marks t)))) ;; Tell Gnus whether there are any \Recent messages in any of ;; the groups. @@@ -1506,14 -1490,6 +1506,14 @@@ (gnus-sorted-complement existing new-marks)))) (when ticks (push (cons (car type) ticks) marks))) + (gnus-info-set-marks info marks t)) + ;; Add vanished to the list of unexisting articles. + (when vanished + (let* ((old-unexists (assq 'unexist marks)) + (unexists (gnus-range-add (cdr old-unexists) vanished))) + (if old-unexists + (setcdr old-unexists unexists) + (push (cons 'unexist unexists) marks))) (gnus-info-set-marks info marks t)))) (defun nnimap-imap-ranges-to-gnus-ranges (irange) @@@ -1730,7 -1706,8 +1730,8 @@@ (when nnimap-record-commands (with-current-buffer (get-buffer-create "*imap log*") (goto-char (point-max)) - (insert (format-time-string "%H:%M:%S") " " + (insert (format-time-string "%H:%M:%S") + " [" nnimap-address "] " (if nnimap-inhibit-logging "(inhibited)\n" command))))