60 |
60 |
61 ;; Set following in ~/.emacs-auth: |
61 ;; Set following in ~/.emacs-auth: |
62 ;; (setq user-full-name "Oleksandr Gavenko") |
62 ;; (setq user-full-name "Oleksandr Gavenko") |
63 ;; (setq user-mail-address "gavenkoa@gmail.com") |
63 ;; (setq user-mail-address "gavenkoa@gmail.com") |
64 ;; (setq user-nick "gavenkoa") |
64 ;; (setq user-nick "gavenkoa") |
|
65 ;; (setq user-home-page "http://gavenkoa.users.sf.net") |
65 |
66 |
66 (unless (and (boundp 'user-nick) (stringp user-nick)) |
67 (unless (and (boundp 'user-nick) (stringp user-nick)) |
67 (setq user-nick (user-login-name)) ) |
68 (setq user-nick (user-login-name)) ) |
68 (setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address ">")) |
69 ;; auto-insert and copyright package use this to insert copyright owner. Gnus |
|
70 ;; uses this for Organization header. |
|
71 (setenv "ORGANIZATION" |
|
72 (concat |
|
73 user-full-name |
|
74 " <" user-mail-address ">" |
|
75 (when (boundp 'user-home-page) (concat ", " user-home-page)))) |
69 |
76 |
70 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
77 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
71 (message "my defun, defmacro, defvar") |
78 (message "my defun, defmacro, defvar") |
72 |
79 |
73 (defmacro my-filter (condfunc list) |
80 (defmacro my-filter (condfunc list) |