;;; -*- lexical-binding: t -*-
(defun open-emacs-ml (name)
  (browse-url (format "http://lists.gnu.org/archive/html/%s/%s/"
                      name (format-time-string "%Y-%m"))))
(dolist (ml '(emacs-devel bug-gnu-emacs emacs-bug-tracker emacs-buildstatus emacs-diffs
                          emacs-elpa-diffs gnu-emacs-sources help-emacs-windows
                          help-gnu-emacs info-gnu-emacs emacs-tangents))
  (fset ml (lambda () (interactive) (open-emacs-ml ml))))

(provide 'mylisp-emacs-ml)