201 |
|
|
202 |
;;; Code: |
;;; Code: |
203 |
|
|
204 |
|
(defvar mail-yank-prefix) |
205 |
|
|
206 |
;;; Custom.el macros require recompiling this when they are not present. |
;;; Custom.el macros require recompiling this when they are not present. |
207 |
;;; Add in backward compatible custom support. |
;;; Add in backward compatible custom support. |
208 |
(eval-when-compile |
(eval-when-compile |
916 |
(insert-file-contents data-file) |
(insert-file-contents data-file) |
917 |
;; There is zero or one line with special characters declarations. |
;; There is zero or one line with special characters declarations. |
918 |
(when (search-forward-regexp "^special" nil t) |
(when (search-forward-regexp "^special" nil t) |
919 |
(let ((specials (split-string |
(let ((specials (split-string |
920 |
(buffer-substring (point) |
(buffer-substring (point) |
921 |
(progn (end-of-line) (point)))))) |
(progn (end-of-line) (point)))))) |
922 |
;; The line looks like: special ' -** - -** . -** : -*- |
;; The line looks like: special ' -** - -** . -** : -*- |
953 |
(insert-file-contents alias-file) |
(insert-file-contents alias-file) |
954 |
;; Look for a line "add FOO.multi", extract FOO |
;; Look for a line "add FOO.multi", extract FOO |
955 |
(when (search-forward-regexp "^add \\([^.]+\\)\\.multi" nil t) |
(when (search-forward-regexp "^add \\([^.]+\\)\\.multi" nil t) |
956 |
(let* ((aliasname (file-name-sans-extension |
(let* ((aliasname (file-name-sans-extension |
957 |
(file-name-nondirectory alias-file))) |
(file-name-nondirectory alias-file))) |
958 |
(already-exists-p (assoc aliasname ispell-dictionary-alist)) |
(already-exists-p (assoc aliasname ispell-dictionary-alist)) |
959 |
(realname (match-string 1)) |
(realname (match-string 1)) |