Lines Matching +defs:command +defs:line
256 (defcustom gnus-article-x-face-command
267 If it is a string, the command will be executed in a sub-shell
268 asynchronously. The compressed face will be piped to this command."
529 command, and friends such as `gnus-summary-save-article-rmail'.
667 beginning of a line."
671 (defcustom gnus-article-mode-line-format "Gnus: %g [%w] %S%m"
672 "*The format specification for the article mode line.
673 See `gnus-summary-mode-line-format' for a closer description.
991 ("pipe to command" . gnus-mime-pipe-part)
1250 "Strip the X-No-Archive header line from the beginning of the body.
1331 (and (string-match "^0x" (shell-command-to-string "uncompface"))
1617 (defvar gnus-article-mode-line-format-alist
1620 gnus-summary-mode-line-format-alist))
1708 (end-of-line)
1779 (forward-line 1))
1788 (beginning-of-line)
1797 (forward-line 1))
1828 (forward-line -1)
1832 (end-of-line)
1938 (forward-line -1)
1950 (forward-line -1)
1962 (end-of-line)
1983 (end-of-line)
1997 (forward-line 1))))))
2134 "Place a boundary line at the end of the headers."
2160 (end-of-line)
2168 (forward-line 1)))))))
2206 (forward-line -1))
2207 (forward-line 1)
2218 ;; an interactive command, that is when the *Article* buffer is
2278 (when (stringp gnus-article-x-face-command)
2281 gnus-article-x-face-command
2290 (cond ((stringp gnus-article-x-face-command)
2291 ;; The command is a string, so we interpret the command
2292 ;; as a, well, command, and fork it off.
2297 shell-command-switch gnus-article-x-face-command)
2304 ((functionp gnus-article-x-face-command)
2305 ;; The command is a lisp function, so we call it.
2306 (funcall gnus-article-x-face-command face))
2309 gnus-article-x-face-command))))))))))
2354 (forward-line 1)
2382 (forward-line -1))
2386 (forward-line -1)
2649 (beginning-of-line))
2721 (forward-line -1)
2760 (gnus-set-mode-line 'article))
2769 (gnus-delete-line)))))
2780 (gnus-delete-line))))))
2807 "Replace consecutive blank lines with one empty line."
2818 ;; Then replace multiple empty lines with a single empty line.
2866 (forward-line 1)
2970 (forward-line 1)
2972 (forward-line 1)
3029 (forward-line 1))
3031 (insert (article-make-date-line date (or type 'ut)))
3034 (forward-line -1))
3036 (beginning-of-line)
3046 (defun article-make-date-line (date type)
3047 "Return a DATE line of TYPE."
3185 "Function to be run from a timer to update the lapsed time line."
3564 (defun gnus-summary-save-in-pipe (&optional command)
3566 (setq command
3567 (cond ((and (eq command 'default)
3568 gnus-last-shell-command)
3569 gnus-last-shell-command)
3570 ((stringp command)
3571 command)
3574 "Shell command on %s: "
3580 gnus-last-shell-command))))
3581 (when (string-equal command "")
3582 (if gnus-last-shell-command
3583 (setq command gnus-last-shell-command)
3584 (error "A command is required")))
3588 (shell-command-on-region (point-min) (point-max) command nil)))
3589 (setq gnus-last-shell-command command))
3599 (defun gnus-summary-pipe-to-muttprint (&optional command)
3601 (setq command (gnus-read-string
3602 "Print using command: " gnus-summary-muttprint-program
3604 (gnus-summary-save-in-pipe command))
3699 (forward-line)
3703 (forward-line))
3723 (forward-line -1)
3728 (forward-line)
3733 (forward-line)
3737 (forward-line))
3908 (gnus-simplify-mode-line)
4007 (defun gnus-article-set-window-start (&optional line)
4013 (if (not line)
4017 (forward-line line)
4078 (gnus-set-mode-line 'article)))
4105 (gnus-set-mode-line 'summary)
4123 (gnus-set-mode-line 'article))
4126 (forward-line -1))
4153 (defvar gnus-mime-button-line-format "%{%([%p. %d%T]%)%}%e\n"
4168 (defvar gnus-mime-button-line-format-alist
4563 shell-command-switch
4564 (mm-mailcap-command
4599 (forward-line 2)
4813 (forward-line 1)
4830 (forward-line)
4841 (forward-line 1)
4850 (gnus-delete-line)
4887 gnus-mime-button-line-format gnus-mime-button-line-format-alist
5107 (forward-line -1)
5119 (forward-line -1)
5174 (forward-line 2)
5276 "Alist of strings describing wash status in the mode line.
5279 in the article mode line when the washing function is active, and OFF
5473 (move-to-window-line -1)
5475 (end-of-line)
5476 (and (pos-visible-in-window-p) ;Not continuation line.
5483 (forward-line)
5497 In Emacs, the point is placed at the line number which `scroll-margin'
5500 '(move-to-window-line 0)
5501 '(move-to-window-line
5504 (if mode-line-format 1 0)
5505 (if (and (boundp 'header-line-format)
5506 (symbol-value 'header-line-format))
5532 (move-to-window-line 0)
5591 (gnus-message 6 (substitute-command-keys "\\<gnus-article-mode-map>\\[gnus-article-goto-next-page]:Next page \\[gnus-article-goto-prev-page]:Prev page \\[gnus-article-show-summary]:Show summary \\[gnus-info-find-node]:Run Info \\[gnus-article-describe-briefly]:This help")))
5593 (defun gnus-article-summary-command ()
5600 (setq func (lookup-key (current-local-map) (this-command-keys)))
5606 (defun gnus-article-summary-command-nosave ()
5611 (setq func (lookup-key (current-local-map) (this-command-keys)))
5637 (push (or key last-command-event) unread-command-events)
5713 (push (elt key 0) unread-command-events)
5716 (setq unread-command-events
5734 (push (elt key 0) unread-command-events)
5737 (setq unread-command-events
5811 (let (do-update-line sparse-header)
5841 (setq do-update-line article)
5975 (when (and do-update-line
5980 (gnus-summary-update-article do-update-line sparse-header)
5981 (gnus-summary-goto-subject do-update-line nil t)
6035 "\C-a" message-beginning-of-line
6483 (defun gnus-button-handle-apropos-command (url)
6485 (apropos-command
6630 ("M-x[ \t\n]+apropos-command[ \t\n]+RET[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET"
6631 0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-command 1)
6820 (beginning-of-line)
6986 (gnus-set-mode-line 'article))))
7196 (defvar gnus-next-page-line-format "%{%(Next page...%)%}\n")
7197 (defvar gnus-prev-page-line-format "%{%(Previous page...%)%}\n")
7221 gnus-prev-page-line-format nil
7253 (gnus-eval-format gnus-next-page-line-format nil
7468 (defvar gnus-mime-security-button-line-format "%{%([[%t:%i]%D]%)%}\n"
7475 (defvar gnus-mime-security-button-end-line-format "%{%([[End of %t]%D]%)%}\n"
7482 (defvar gnus-mime-security-button-line-format-alist
7534 (gnus-mime-security-button-line-format
7535 (get-text-property (point) 'gnus-line-format))
7538 (while (eq (get-text-property (point) 'gnus-line-format)
7539 gnus-mime-security-button-line-format)
7548 'gnus-line-format
7549 gnus-mime-security-button-line-format)
7596 gnus-mime-security-button-line-format
7597 gnus-mime-security-button-line-format-alist
7600 gnus-line-format ,gnus-mime-security-button-line-format
7632 (let ((gnus-mime-security-button-line-format
7633 gnus-mime-security-button-end-line-format))