diff options
| author | Stefan Kangas | 2019-09-13 18:06:31 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2019-09-13 18:37:15 +0200 |
| commit | 45b01f2d7fc9929fccf2e173291001ab04387947 (patch) | |
| tree | b431b89800a06b84ae44b0474edfb96cfcbed0c9 /lisp/mail | |
| parent | 897540069fb09d091802046046daca821079aac5 (diff) | |
| download | emacs-45b01f2d7fc9929fccf2e173291001ab04387947.tar.gz emacs-45b01f2d7fc9929fccf2e173291001ab04387947.zip | |
Remove leftover XEmacs compat code and doc fixes
* lisp/mail/feedmail.el (top-level): Remove outdated comment.
(feedmail-run-the-queue): Remove leftover XEmacs compat code.
(feedmail-nuke-bcc): Doc fix.
* lisp/emulation/viper.el (top-level, viper-mode)
* lisp/net/rfc2104.el (top-level): Doc fix.
* lisp/textmodes/table.el (top-level): Remove obsolete todo.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/feedmail.el | 17 |
1 files changed, 2 insertions, 15 deletions
diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index babc3fc212a..b362614d3a0 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el | |||
| @@ -17,15 +17,6 @@ | |||
| 17 | ;; ability to queue messages for later sending. This replaces | 17 | ;; ability to queue messages for later sending. This replaces |
| 18 | ;; the standalone fakemail program that used to be distributed with Emacs. | 18 | ;; the standalone fakemail program that used to be distributed with Emacs. |
| 19 | 19 | ||
| 20 | ;; feedmail works with recent versions of Emacs (20.x series) and | ||
| 21 | ;; XEmacs (tested with 20.4 and later betas). It probably no longer | ||
| 22 | ;; works with Emacs v18, though I haven't tried that in a long | ||
| 23 | ;; time. Makoto.Nakagawa@jp.compaq.com reports: "I have a report | ||
| 24 | ;; that with a help of APEL library, feedmail works fine under emacs | ||
| 25 | ;; 19.28. You can get APEL from ftp://ftp.m17n.org/pub/mule/apel/. | ||
| 26 | ;; you need apel-10.2 or later to make feedmail work under emacs | ||
| 27 | ;; 19.28." | ||
| 28 | |||
| 29 | ;; Sorry, no manual yet in this release. Look for one with the next | 20 | ;; Sorry, no manual yet in this release. Look for one with the next |
| 30 | ;; release. Or the one after that. Or maybe later. | 21 | ;; release. Or the one after that. Or maybe later. |
| 31 | 22 | ||
| @@ -437,9 +428,7 @@ shuttled robotically onward." | |||
| 437 | (defcustom feedmail-confirm-outgoing-timeout nil | 428 | (defcustom feedmail-confirm-outgoing-timeout nil |
| 438 | "If non-nil, a timeout in seconds at the send confirmation prompt. | 429 | "If non-nil, a timeout in seconds at the send confirmation prompt. |
| 439 | If a positive number, it's a timeout before sending. If a negative | 430 | If a positive number, it's a timeout before sending. If a negative |
| 440 | number, it's a timeout before not sending. This will not work if your | 431 | number, it's a timeout before not sending." |
| 441 | version of Emacs doesn't include the function `y-or-n-p-with-timeout' | ||
| 442 | \(e.g., some versions of XEmacs)." | ||
| 443 | :version "24.1" | 432 | :version "24.1" |
| 444 | :group 'feedmail-misc | 433 | :group 'feedmail-misc |
| 445 | :type '(choice (const nil) integer) | 434 | :type '(choice (const nil) integer) |
| @@ -2004,9 +1993,7 @@ backup file names and the like)." | |||
| 2004 | ((feedmail-fqm-p blobby) | 1993 | ((feedmail-fqm-p blobby) |
| 2005 | (setq blobby-buffer (generate-new-buffer (concat "FQM " blobby))) | 1994 | (setq blobby-buffer (generate-new-buffer (concat "FQM " blobby))) |
| 2006 | (setq already-buffer | 1995 | (setq already-buffer |
| 2007 | (if (fboundp 'find-buffer-visiting) ; missing from XEmacs | 1996 | (find-buffer-visiting maybe-file)) |
| 2008 | (find-buffer-visiting maybe-file) | ||
| 2009 | (get-file-buffer maybe-file))) | ||
| 2010 | (if (and already-buffer (buffer-modified-p already-buffer)) | 1997 | (if (and already-buffer (buffer-modified-p already-buffer)) |
| 2011 | (save-window-excursion | 1998 | (save-window-excursion |
| 2012 | (display-buffer (set-buffer already-buffer)) | 1999 | (display-buffer (set-buffer already-buffer)) |