# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1471102526 -10800
# Node ID 26553c2093b15aeb5faaf961f3a4ff978cc3a879
# Parent  436e2cb0d9c0bcf9436e2bbe472733fb9d7d82d8
Rename my public names to use "my/" prefix and my private function to use "my--" prefix.

diff -r 436e2cb0d9c0 -r 26553c2093b1 .emacs-my
--- a/.emacs-my	Sat Aug 13 18:22:31 2016 +0300
+++ b/.emacs-my	Sat Aug 13 18:35:26 2016 +0300
@@ -43,7 +43,7 @@
 ;; Don't sort ``recentf-list`` so ``recentf-open-files`` show files in historical order!
 (setq recentf-menu-filter nil)
 
-(defun my-recentf.clean-project (dir)
+(defun my/recentf-clean-project (dir)
   "Remove from recentf all files that belong to DIR directory."
   (interactive (list (read-directory-name "Exclude all paths")))
   (let ( recentf-exclude )
@@ -1722,24 +1722,24 @@
 ;; Kill message buffer after mail send. You always can use C-c C-s to preserve it.
 (setq message-kill-buffer-on-exit t)
 
-(defconst my-safe-filename-char-regex "[[:alnum:]-_!.@]"
+(defconst my--message-safe-filename-regex "[[:alnum:]-_!.@]"
   "Safe file names.")
 
-(defun my-clean-filename (filename)
+(defun my--message-refine-filename (filename)
   (mapconcat
-   (lambda (ch) (or (when (string-match my-safe-filename-char-regex (char-to-string ch)) (char-to-string ch)) "-"))
+   (lambda (ch) (or (when (string-match my--message-safe-filename-regex (char-to-string ch)) (char-to-string ch)) "-"))
    filename "") )
 
-(defun my-message-save ()
+(defun my--message-save ()
   "Store message in `gnus-article-save-directory' after
 successful sending. It is possible that mail rejected and I lost
 it completely, this func save it for me."
   (unless (eq major-mode 'message-mode)
-    (error "Attempt to call my-message-save in non message-mode buffer"))
+    (error "Attempt to call my--message-save in non message-mode buffer"))
   (make-directory gnus-article-save-directory t)
   (let ( (buf (current-buffer))
-         (field-to (my-clean-filename (or (message-fetch-field "Newsgroups") (message-fetch-field "To"))))
-         (field-subject (my-clean-filename (message-fetch-field "Subject")))
+         (field-to (my--message-refine-filename (or (message-fetch-field "Newsgroups") (message-fetch-field "To"))))
+         (field-subject (my--message-refine-filename (message-fetch-field "Subject")))
          file )
     (when (> (length field-to) 32)
       (setq field-to (substring field-to 0 32)))
@@ -1749,7 +1749,7 @@
     (with-temp-file file
       (insert-buffer-substring buf)
       )) )
-(add-hook 'message-sent-hook 'my-message-save)
+(add-hook 'message-sent-hook 'my--message-save)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "smtp, smtpmail")
@@ -2020,7 +2020,7 @@
 (my--eval-after-load gnus-sum
   (define-key gnus-summary-mode-map (kbd "C-k") #'my-gnus-summary-kill-same-subject))
 
-(defun my-gnus.mark-thread-as-read ()
+(defun my/gnus-mark-thread-as-read ()
   "Mark unmarked articles in current thread as read and move to
 next thread without selecting article."
   (interactive)
@@ -2032,7 +2032,7 @@
       (when (or (not (gnus-summary-search-forward)) (eq (gnus-summary-thread-level) 0))
         (throw 'exit nil)) )))
 (my--eval-after-load gnus-sum
-  (define-key gnus-summary-mode-map (kbd "H-k") #'my-gnus.mark-thread-as-read))
+  (define-key gnus-summary-mode-map (kbd "H-k") #'my/gnus-mark-thread-as-read))
 
 (defun my-gnus-thread-score-function (&rest scores)
   "If any followup have positive score assign greater available