|
Server IP : 111.118.215.189 / Your IP : 18.117.158.174 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/gnus/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:10 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/gnus/gnus-vm.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require sendmail message gnus gnus-msg] 2) #@92 Inhibit loading `win-vm' if using a window-system. Has to be set before gnus-vm is loaded. (defvar gnus-vm-inhibit-window-system nil (#$ . 665)) (byte-code "\204 \301\302\303\217\210\304\305!\204 \306\307!\210\301\207" [gnus-vm-inhibit-window-system nil (byte-code "\203 \301\302!\210\301\207" [window-system require win-vm] 2) ((error)) featurep vm load "vm"] 3) (defalias 'gnus-vm-make-folder #[(&optional buffer) "\206 p\306\307!ed q\210\310\f\n #\210eb\210\311\312!\203* \313\314\315 P!\210\2023 \316 \317\315 \320\261\210\321\322\323\324#\203B \313\325!\210\2023 db\210\320c\210\326 \210 ,\207" [buffer end start tmp-folder article gnus-newsgroup-name generate-new-buffer " *tmp-folder*" insert-buffer-substring looking-at "^\\(From [^ ]+ \\).*$" replace-match "\\1" current-time-string "From " " " "\n" re-search-forward "\n\nFrom " nil t "\n\n>From " vm-mode] 5]) #@252 Append the current article to a vm folder. If N is a positive number, save the N next articles. If N is a negative number, save the N previous articles. If N is nil and any articles have been marked with the process mark, save those articles instead. (defalias 'gnus-summary-save-article-vm #[(&optional arg) "\302\303!\210\304\305 !)\207" [gnus-default-article-saver arg require gnus-art gnus-summary-save-in-vm gnus-summary-save-article] 2 (#$ . 1555) "P"]) (defalias 'gnus-summary-save-in-vm #[(&optional folder) "\306\307 \n \310&\311 \312\313\" \314\216\203, \315!\210\316!q\210\2021 \317!\210\212\214~\210\320 \321!\210\322!.\207" [folder gnus-mail-save-name gnus-newsgroup-name gnus-current-headers #1=#:GnusStartBufferWindow gnus-original-article-buffer gnus-read-save-file-name "Save %s in VM folder:" gnus-newsgroup-last-mail selected-window gnus-get-buffer-window visible ((select-window #1#)) select-window window-buffer pop-to-buffer gnus-vm-make-folder vm-save-message kill-buffer #2=#:buf #3=#:w vm-folder] 7 nil nil]) (provide 'gnus-vm)