Lines Matching defs:line
30 (defvar command-line-args-left) ;Avoid 'free variable' warning
35 Specify the input Rmail file names as command line arguments.
39 ;; command-line-args-left is what is left of the command line (from startup.el)
43 (while command-line-args-left
44 (or (unrmail (car command-line-args-left)
45 (concat (car command-line-args-left) ".mail"))
47 (setq command-line-args-left (cdr command-line-args-left)))
118 label-line attrs keywords
126 (forward-line 1)
130 ;; Collect the label line, then get the attributes
132 (setq label-line
134 (save-excursion (forward-line 1)
140 (progn (end-of-line)
147 (if (string-match ", answered," label-line) ?A ?-)
148 (if (string-match ", deleted," label-line) ?D ?-)
149 (if (string-match ", edited," label-line) ?E ?-)
150 (if (string-match ", filed," label-line) ?F ?-)
151 (if (string-match ", resent," label-line) ?R ?-)
152 (if (string-match ", unseen," label-line) ?\ ?-)
153 (if (string-match ", stored," label-line) ?S ?-)))
156 ;; and the ***EOOH*** line, and the reformatted header if any.
160 (forward-line 2)
164 (forward-line 1)))
168 (forward-line -1)
184 ;; Fetch or construct what we should use in the `From ' line.
201 (beginning-of-line)
203 (progn (forward-line 1) (point)))))
206 ;; Insert the `From ' line.