Mercurial > emacs
comparison lisp/mail/undigest.el @ 104907:6a35503cf20b
Put autoloads in rmail.el rather than loaddefs.el.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 10 Sep 2009 06:18:23 +0000 |
parents | ec4427ac212e |
children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
104906:7018aaffba60 | 104907:6a35503cf20b |
---|---|
211 (setq error nil) | 211 (setq error nil) |
212 (message "Message successfully undigestified") | 212 (message "Message successfully undigestified") |
213 (set-buffer buff) | 213 (set-buffer buff) |
214 (rmail-swap-buffers-maybe) | 214 (rmail-swap-buffers-maybe) |
215 (goto-char (point-max)) | 215 (goto-char (point-max)) |
216 ;; FIXME use rmail-count-new-messages. | |
216 (rmail-set-message-counters) | 217 (rmail-set-message-counters) |
217 (set-buffer-modified-p t) | 218 (set-buffer-modified-p t) |
218 (rmail-show-message current) | 219 (rmail-show-message current) |
219 (rmail-delete-forward) | 220 (rmail-delete-forward) |
220 (if (rmail-summary-exists) | 221 (if (rmail-summary-exists) |
310 (rmail-add-mbox-headers)) ; marks as unseen | 311 (rmail-add-mbox-headers)) ; marks as unseen |
311 (setq error nil) | 312 (setq error nil) |
312 (set-buffer buff) | 313 (set-buffer buff) |
313 (rmail-swap-buffers-maybe) | 314 (rmail-swap-buffers-maybe) |
314 (goto-char (point-max)) | 315 (goto-char (point-max)) |
316 ;; FIXME use rmail-count-new-messages. | |
315 (rmail-set-message-counters) | 317 (rmail-set-message-counters) |
316 (set-buffer-modified-p t) | 318 (set-buffer-modified-p t) |
317 (rmail-show-message current) | 319 (rmail-show-message current) |
318 (if (rmail-summary-exists) | 320 (if (rmail-summary-exists) |
319 (rmail-select-summary (rmail-update-summary)))) | 321 (rmail-select-summary (rmail-update-summary)))) |
321 (set-buffer buff) | 323 (set-buffer buff) |
322 (rmail-show-message current))))) | 324 (rmail-show-message current))))) |
323 | 325 |
324 (provide 'undigest) | 326 (provide 'undigest) |
325 | 327 |
328 ;; Local Variables: | |
329 ;; generated-autoload-file: "rmail.el" | |
330 ;; End: | |
331 | |
326 ;; arch-tag: 3a28b9fb-c1f5-43ef-9278-285f3e4b874d | 332 ;; arch-tag: 3a28b9fb-c1f5-43ef-9278-285f3e4b874d |
327 ;;; undigest.el ends here | 333 ;;; undigest.el ends here |