Lines Matching +refs:time +refs:stamp +refs:string
76 If ARG is non-nil, set timestamp with the current time."
78 (let ((time (current-time)))
79 (setq mh-alias-tstamp (list (nth 0 time) (nth 1 time))))
80 (let ((stamp))
85 (setq stamp (nth 5 (file-attributes file)))
86 (or (> (car stamp) (car mh-alias-tstamp))
87 (and (= (car stamp) (car mh-alias-tstamp))
88 (> (cadr stamp) (cadr mh-alias-tstamp)))))))
100 (filelist (and filename (split-string filename "[ \t]+")))
116 "Return a usable address string from a GECOS-NAME and USERNAME.
120 ;; Keep only string until first comma if COMMA-SEPARATOR is t.
122 (string-match "^\\([^,]+\\)," res))
123 (setq res (match-string 1 res)))
125 (if (string-match "&" res)
126 (setq res (mh-replace-regexp-in-string "&" (capitalize username) res)))
128 (if (string-match "\"" res)
129 (setq res (mh-replace-regexp-in-string "\"" "" res)))
130 ;; If empty string, use username instead
131 (if (string-equal "" res)
134 (if (not (string-match "^[ a-zA-Z0-9-]+$" res))
156 (when (> (string-to-number (match-string 2)) 200)
157 (let* ((username (match-string 1))
158 (gecos-name (match-string 3))
167 (if (string-equal username realname)
170 (when (not (mh-assoc-string alias-name mh-alias-alist t))
199 (when (not (mh-assoc-string (match-string 1) mh-alias-blind-alist t))
201 (cons (list (match-string 1)) mh-alias-blind-alist))
202 (setq mh-alias-alist (cons (list (match-string 1)) mh-alias-alist))))
204 (when (not (mh-assoc-string (match-string 1) mh-alias-alist t))
206 (cons (list (match-string 1)) mh-alias-alist)))))
215 (if (not (mh-assoc-string (car user) mh-alias-alist t))
235 ALIAS must be a string for a single alias.
237 returns the string unchanged if not defined. The same is done here."
246 (message "%s" (error-message-string err))
253 ((mh-assoc-string alias mh-alias-blind-alist t)
255 ((mh-assoc-string alias mh-alias-passwd-alist t)
256 (cadr (mh-assoc-string alias mh-alias-passwd-alist t)))
268 (read-string prompt)
278 (t (split-string
294 (if (mh-assoc-string the-name mh-alias-alist t)
298 (not (string-match " " the-name)))
321 (defun mh-alias-suggest-alias (string &optional no-comma-swap)
326 ((string-match "^<\\(.*\\)>$" string)
328 (mh-alias-suggest-alias (match-string 1 string) no-comma-swap))
329 ((string-match "^\\sw+$" string)
331 (downcase string))
332 ((string-match "^\\(\\sw+\\)\\s-+\\(\\sw+\\)$" string)
335 (format "%s.%s" (match-string 1 string) (match-string 2 string))))
336 ((string-match "^\\([-a-zA-Z0-9._]+\\)@[-a-zA-z0-9_]+\\.+[a-zA-Z0-9]+$"
337 string)
339 (downcase (match-string 1 string)))
340 ((string-match "^\"\\(.*\\)\".*" string)
342 (mh-alias-suggest-alias (match-string 1 string) no-comma-swap))
343 ((string-match "^\\(.*\\) +<.*>$" string)
345 (mh-alias-suggest-alias (match-string 1 string) no-comma-swap))
346 ((string-match (concat goto-address-mail-regexp " +(\\(.*\\))$") string)
348 (mh-alias-suggest-alias (match-string 1 string) no-comma-swap))
349 ((string-match "^\\(Dr\\|Prof\\)\\.? +\\(.*\\)" string)
351 (mh-alias-suggest-alias (match-string 2 string) no-comma-swap))
352 ((string-match "^\\(.*\\), +\\(Jr\\.?\\|II+\\)$" string)
354 (mh-alias-suggest-alias (match-string 1 string) no-comma-swap))
355 ((string-match "^\\(.*\\) +\\(Jr\\.?\\|II+\\)$" string)
357 (mh-alias-suggest-alias (match-string 1 string) no-comma-swap))
358 ((string-match "^\\(\\sw+\\) +[A-Z]\\.? +\\(.*\\)$" string)
361 (format "%s %s" (match-string 1 string) (match-string 2 string))
364 (string-match "^\\([^,]+\\), +\\(.*\\)$" string))
367 ;; but don't this for a name string extracted from the passwd file
370 (format "%s %s" (match-string 2 string) (match-string 1 string))
373 ;; Output string, with spaces replaced by dots.
374 (mh-alias-canonicalize-suggestion string))))
376 (defun mh-alias-canonicalize-suggestion (string)
380 string is converted to lower case."
382 (insert string)
398 (buffer-string)))
427 (string-equal alias (mh-alias-ali alias))) ;alias doesn't exist
439 (not (string-equal
450 (string-equal alias (mh-alias-ali alias))) ;alias doesn't exist
461 (if (string-equal aliases address)
462 nil ; ali returned same string -> no.
469 (if (string-match ".*,.*" recurse)
472 (split-string aliases ", +")))))))
509 (let ((answer (read-string
512 (match-string 1))))
514 (cond ((string-match "^b" answer))
515 ((string-match "^a" answer)
555 (if (and address (string-match "^<\\(.*\\)>$" address))
556 (setq address (match-string 1 address)))
557 (setq address (read-string "Address: " address))
558 (if (string-match "^<\\(.*\\)>$" address)
559 (setq address (match-string 1 address)))
562 (if (string-equal alias-address alias)
640 (if (or (string-match regexp (car elem))
641 (string-match regexp (cadr elem)))
645 (if (and (string-equal "" matches)
646 (string-equal "" group-matches)
647 (string-equal "" passwd-matches))
650 (if (not (string-equal "" matches))
652 (when (not (string-equal group-matches ""))
655 (when (not (string-equal passwd-matches ""))
668 (string-match ".*/\\([0-9]+\\)$"
670 (string-equal
671 (match-string 1 (buffer-file-name (get-buffer mh-show-buffer)))
672 (int-to-string (mh-get-msg-num nil)))))