;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/gnus/mail-insert.el

(defun insert-mail (&optional delim)
  (interactive "P")
  (pcase-let ((`(,delim-beg ,delim-end) (if delim '("<" ">") '("" ""))))
    (insert (format "%s%s%s" delim-beg user-mail-address delim-end)) ))

;; (insert-mail)   ;  incal@dataswamp.org
;; (insert-mail t) ; <incal@dataswamp.org>

(defun insert-phone (&optional world)
  "WORLD format according to ITU-T E.123,
  https://www.itu.int/rec/T-REC-E.123-200102-I
\nSweden phone number practices,
  https://dataswamp.org/~incal/phone/swedish-phone-numbers.txt"
  (interactive "P")
  (let ((form (if world
                  "+46 %d%d %d%d%d %d%d %d%d"
                "0%d%d-%d%d%d %d%d %d%d") ))
    (insert (format form 7 2 9 4 6 2 0 2 6)) ))

;; (insert-phone)   ;    072-946 20 26
;; (insert-phone t) ; +46 72 946 20 26

(provide 'mail-insert)